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Studio Bitplane - Software per corrispondenza 


Il valore dell’utility al costo del videogame! 


CON UN OTTIMO COMPUTER SOTTOMANO, QUELLO CHE SERVE E’ DELL'OTTIMO SOFTWARE 
UTILE, ECONOMICO E STIMOLANTE PER CHI NON VUOLE SOLO GIOCARE. 


Grafica, musica, desktop video, elaborazione e archiviazione dati, fatturazione, gestione commerciale, programmazione, gestione drive e altro ancora! 
Quella che segue è la descrizione di alcuni nostri programmi su dischetto che girano su Commodore 64 0 su Commodore 128 (modo 64) e sono tutti provvisti 
di istruzioni in ITALIANO. | prezzi indicati sono IVA inclusa. 


Professional Graph (codice 0533 - Lire 16.000) è un potentissimo package per la rappresentazione grafica e la stampa di qualsiasi distribuzione di dati. 
Adesempio, la rappresentazione, mediante un grafico a barre, dell'andamento dei ricavi di un'azienda: dodici barre, affiancate l'una all'altra, rappresentano, 
mediante la loro altezza, il fatturato di ciascun mese. In questo modo salta subito all'occhio il mese con fatturato maggiore, quello con fatturato minore e 
l'andamento generale del fatturato nel corso di tutto l’anno. Ma è solo un esempio. Infatti, Professional Graph prevede grafici a barre semplici, barre multiple 
(affiancate, sovrapposte o tridimensionali), a torta (bi e tridimensionali), a linee singole o multiple, il tutto completato dalla possibilità di intervenire 
direttamente sul grafico aggiungendo testi, indicazioni, retinature e tutto ciò che occorre per rendere il lavoro stampato decisamente professionale. 
Professional Graph è anche semplice da usare. 


Agenda Matic (codice 0537 - Lire 16.000) permette di tenere sotto controllo scadenze, appuntamenti e impegni vari. Consente di gestire fino a 120 giornate 
comprese tra il 1900 e il 1999. Per ogni giornata è possibile archiviare una pagina di testo (20x10 caratteri), contenente qualsiasi tipo di informazione, 
compresi disegni costituiti da simboli grafici. Le caratteristiche che rendono Ag Matic unottimo programma sono l'ottima elasticità e velocità nella ricerca 
dei dati, la semplicità d'uso e la possibilità di visualizzare/stampare un elenco delle scadenze imminenti. Utile a tutti e facilissimo da usare. 


CarBase (codice 0546 - Lire 16.500) è un fantastico programma per tenere sotto controllo la vostra auto o qualsiasi veicolo o macchinario che richiede 
manutenzione. In pratica permette di gestire scadenze (bolli, assicurazioni, ecc.), controlli periodici e diario di bordo. In ogni momento fornisce una scheda 
di valutazione dello stato globale del veicolo, calendari di scadenze e annotazioni (con stampa su qualsiasi stampante), costi di manutenzione globali o 
parziali, segnalazione automatica di scadenze dimenticate e altro ancora. Si avvale anche di un sofisticato e velocissimo sistema di ricerca dei dati inseriti. © 
Elastico, agile e facilissimo da usare! 


Music Base v3.0 (codice 0551 - Lire 16.500) consente di archiviare, per ogni brano della vostra discoteca, il nome, il titolo dell’LP di appartenenza, l'autore 
e la durata. Potete anche gestire un archivio parallelo di tutti i brani duplicati da LP su cassetta, stampare automaticamente le copertine da inserire nelle 
custodie delle musicassette, stampare l'elenco dei brani di un LP, elenchi di brani o LP di un solo autore, elenchi generali, ecc.. Tutti i dati inseriti possono 
essere modificati e cancellati facilmente. Un'opzione speciale vi consente di trovare automaticamente la disposizione più opportuna di una serie di brani 
da trasferire sui due lati di una cassetta di qualsiasi lunghezza! 


VCR Base Il (codice 0552 - Lire 16.500) è un database specifico per l'archiviazione e la catalogazione di videocassette. Memorizza 200 film per archivio, 
gestendo 7 archivi per ogni disco dati. Per ogni film archivia titolo, regista, interpreti, genere e codice cassetta, con visualizzazione immediata e stampa 
{con qualsiasi stampante) di elenchi generali (ordinati secondo titolo, regista, interpreti, genere 0 codice) e parziali (elenco dei film di un regista, con un certo 
attore, di un certo genere o su una cerca cassetta). Rapidità di ricerca/ordinamento e semplicità d'uso. 


Ety ll (codice 0555 - Lire 16.500) è un agile programma per archiviare nomi, indirizzi e numeri di telefono. Visualizzazione immediata e stampa (con qualsiasi 
stampante) di elenchi di nominativi generali (ordinati secondo nome, indirizzo, C.A.P. o prefisso telefonico) e parziali (elenco dei residenti in una certa città, 
aventi un certo prefisso telefonico, ecc.), semplicità d'uso, rapidità di ricerca e ordinamento, capacità di gestire più archivi su ogni disco dati, possibilità di 
stampare su etichette a modulo continuo e adattabilità della stampa a qualsiasi formato di etichetta autoadesiva, sono solo le funzioni principali. 


Personal Budget (codice 0557 - Lire 17.000) è un programma per tenere sotto controllo le finanze personali e gestire, con estrema facilità, qualsiasi 
movimento di denaro (stipendi, spese, andamento di attività commerciali, situazione di conti correnti, ecc.). Registrando tutti i movimenti di entrata ed uscita 
(descrizione, importo e data) e fornendo elenchi, tabelle e grafici, consente di valutare rapidamente le vostre condizioni economiche. In ogni momento, è 
possibile ottenere sia una valutazione globale della vostra situazione finanziaria, sia valutazioni particolareggiate delle diverse categorie di movimenti. Ad 
esempio, potete richiedere il grafico dell'andamento delle spese per il solo riscaldamento della casa nei mesi da novembre a febbraio, oppure il totale 
guadagnato con gli straordinari nel secondo trimestre dell'anno, o il saldo del conto in banca, il bilancio della vostra ditta, e così via. E' anche possibile 
confrontare numericamente e graficamente, le situazioni reali, di un certo movimento in un certo periodo, con quelle previste. E' poi possibile richiedere 
al computer una proiezione, sull'intero anno, di una situazione valutata soltanto su uno 0 più mesi, per prevedere l'esito di una certa attività o spesa. Con 
una stampante è possibile mettere su carta liste cronologiche di movimenti e schede riepilogative specifiche e globali. 


Easy Paint V2.4 (codice 0501 - Lire 16.500) è un potente package grafico per la creazione di schermate a 16 colori in alta risoluzione. Tracciamento di linee, 
ellissoidi, parallelogrammi, spezzate, poligoni, uso di parti del disegno come pennello, riempimento di aree di forma qualsiasi con pattern e strutture grafiche 
personalizzate, ma anche scrittura di testi (di qualsiasi dimensione) con qualsiasi tipo di caratteri (19 tipi già sul disco). Compatibile con lo standard Koala. 
Sullo stesso disco, programmi in BASIC e linguaggio macchina per visualizzare nei vostri programmi le schermate create. 


Scroll-Up (codice 0517 - Lire 16.000) permette di creare videotitolazioni professionali per le vostre videocassette usando qualsiasi combinazione di colori 
fra testo e sfondo fra i 16 colori visualizzabili dal Commodore 64. Inoltre, sul disco trovate ben 10 font di caratteri formato gigante per soddisfare ogni vostra 
esigenza estetica. Testi fissi, in.scrolling fluido verticale dal basso verso l'alto, caratteri appariscenti, caratteri speciali e simboli grafici sono solo alcune 
caratteristiche di questo entusiasmante programma. 


Night Show* (codice 0542 - Lire 12.000) genera uno show di grafica e musica sincronizzate. In pratica, sulla base di una colonna sonora scelta fra le tante 
disponibili, crea uno spettacolo grafico conforme al ritmo e alle caratteristiche del brano. Lo show grafico può essere regolato e personalizzato dall'utente. 
Se le luci nella stanza vengono spente, Night Show trasforma la vostra camera in una discoteca, con tanto di effetto psichedelico, grazie ai lampi colorati 
del video. Il massimo effetto si ottiene collegando il computer allo stereo. Suggestivo e divertente. 


Optimizer* (codice 0524 - Lire 12.000) è un package di due programmi: uno consente di utilizzare al meglio lo spazio libero dei vostri dischetti segnalandovi 
dove si trova il numero di blocchi liberi più opportuno in relazione alle dimensioni del file da salvare, l’altro aiuta in modo scientifico a prendere una decisione, 
creando un modello matematico di tutto il problema. Entrambi i programmi sono accessibili anche ai non esperti. 


Level (codice 0558 - Lire 17.000) è un fantastico programma per creare videogiochi. Tutti gli elementi, dallo scenario, ai personaggi, alla strategia, fino alla 
colonna sonora e agli effetti audio, sono nelle vostre mani! Un simpatico uomo-palla in fuga in un labirinto popolato di fantasmi? Un potente mezzo corazzato 
a caccia di robot alieni? Un'armatissima nave spaziale a zig-zag fra gli asteroidi? O il classico omino che salta per evitare vermi, botti, crepacci, pugni e 
chi più ne ha più ne metta? Level è facile da usare, consente di unire fino a 19 giochi diversi, inventati da voi, in un unico mega-gioco multistage (fino a 999 
livelli!) che viene salvato su disco e utilizzato indipendentemente, come ogni videogame professionale. 


* | dischetti contrassegnati con l'asterisco possono anche essere ricevuti in omaggio! Per ogni tre dischi acquistati con un unico ordine, avete diritto di 
sceglierne uno fra quelli contrassegnati con l'asterisco. 


Per ricevere il catalogo generale gratuito, inviate il vostro indirizzo a: 


Studio Bitplane 
casella postale 10942 
20124 Milano 


Per ricevere subito i programmi, telefonate allo 02/39320732, oppure inviate il vostro indirizzo e i codici dei programmi scelti all'indirizzo indicato sopra. La 
spedizione della merce sarà effettuata in contrassegno e l'importo che dovrete pagare al postino corrisponderà alla somma degli importi dei programmi 
ordinati, più 4000 lire fisse per le spese di spedizione (ad esempio, acquistando Personal Budget e Scroll-Up, pagherete lire 17.000+16.000+4000=37.000). 





EDITO 


Innanzitutto un grosso benvenuto tra gli amici 
di SC64 che raccoglie l'eredità della gloriosa 
Supercommodore C64/128 edita, fino allo scorso 
dicembre, dal Gruppo Editoriale Jackson. 

Il perché di S$C64 appare subito evidente: 
soddisfare non solo gli appassionati sessantaquattristi 
e centoventottisti rimasti con un palmo di naso 
per l'inattesa chiusura della loro rivista beniamina, 
ma anche tutti coloro i quali volessero fare del loro 
computer uno strumento didattico e di lavoro 
oltre che una console di videogiochi, 
Vedremo di soddisfare il più possibile i vostri 
gusti mantenendo un certo equilibrio di contenuti e 
pertanto chiediamo la collaborazione 
di tutti voi: inviateci le vostre opere, se verranno 
ritenute valide, le vedrete pubblicate su queste pagine 
e riportate sul disco allegato. 

Buon divertimento! 


COME CARICARE | PROGRAMMI DA DISCO... 


Tutti i programmi riportati all'interno della rivista trovano posto sul disco 
da 5 1/4" allegato. Il loro caricamento avviene in modo classico con il 
comando LOAD"nome file", 8 seguito da RETURN. Alla com- 
parsa del messaggio READY col cursore lampeggiante, digitare RUN 
seguito da RETURN per lanciare il programma. Se alcuni programmi 
necessiteranno di sistemi particolari di caricamento, questi verranno di 
volta in volta riportati nel contesto dell'articolo che si riferisce al 
programma stesso. Per conoscere il nome del file da caricare, è suffi- 
ciente richiamare e listare la directory del disco usando il comando 
LOAD"$",8 seguito da RETURN. Alla comparsa del messaggio 
READY col cursore lampeggiante, digitare 1 ST seguito da RETURN. 
E' possibile caricare i programmi direttamente dalla directory con la 
procedura che segue: - portare (con i tasti direzionali) il cursore lampeg- 
giante all'inizio della linea contenente il nome del programma - digitare 
LOAD - portare il cursore lampeggiante (con i 
tasti direzionali) all'immediata destra del nome 
del programma dopogli apici di chiusura - battere 
, 8 : - far seguire RETURN - all'apparizione del 
messaggio READY col cursore lampeggiante, 
battere RUN : - il programma verrà così lanciato. 
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La posta 





la parola a i lettori... 


LA PRIMA 


Innanzitutto un grosso BENVENUTO a tutti, con l'au- 
gurio di restare assieme ancora per molto e molto 
tempo. La prima adesione alla nostra iniziativa è 
giunta nei primi giorni dello scorso dicembre daRosa 
Maria Pavia di Costigliole d'Asti, ad essa vanno i 
complimenti dell'intera redazione. 


CARI CENTOVENTOTTISTI... 


Con questa mia, mi permetto di ricordarvi che sono 
ancora parecchi i possessori di C128 che, come me, 
hanno forse seguito per anni la pubblicazione Super- 
commodore 64/128. Per quanto miriguarda, mi spia- 
cerebbe, anzi non mi interesserebbe che questa nuova 
rivista si limitasse a trattare esclusivamente il C64 0, 
ancora peggio, si trasformasse in un giornaletto per 
ragazzini patiti esclusivamente di materiale ludico. 
Nel confermare la mia fiducia, spero che possiate e 
vogliate tener presente queste mie, ma sicuramente 
non solo mie, considerazioni. Esiste ancora un va- 
stissimo campionario di programmi al di fuori dei 
giochi, che possono interessare e anche spesso in- 
vogliare chi si occupa solo di giochi a non conside- 
rare il loro C64 0 128 come delle semplici console. 
Nel formulare i miei migliori auguri di successo per 
questa vostra iniziativa, vi porgo i miei cordiali saluti. 


M. Chiarante - Valle S. Bartolomeo (AL)... 


+... molti altri! 


Pubblichiamo la lettera di Michele, ma per fare cosa 
giusta dovremmo pubblicarne molte altre simili alla 
sua: lo spazio è, purtroppo, tiranno. Condividiamo 
appieno il suo punto di vista anche se su questo 
primo numero appare un solo programma per il C128 
(a causa dei tempi ridottissimi per questa prima usci- 
ta) inmodo 128. Si tranquillizzino però i centoventot- 
tisti, questa non è una regola fissa e già a partire dal 
numero prossimo di aprile il C128 avrà lo spazio che 
gli compete anche se, com'è ovvio, la gran parte dei 
programmi sarà dedicata al C64. | programmi di 
giochi saranno parte integrante della rivista, ne dare- 
mo in giusta dose pur senza esagerare, come si può 
arguire dal listato della directory riportato qui a fianco 
il quale rivela che su sedici programmi disponibili su 
disco, quattro sono dedicati a giochi. La parte più 
grande rimane dedicata ai programmi di utility e a 
quelli didattici, come d'altra parte era nello spirito di 


Supercommodore C64/128. Saranno comunque poi 
le vostre lettere a guidarci e, se necessario, a correg- 
gere il tiro. Come si può notare consultando il colo- 
phon nella pagina precedente, lo staff redazionale, 
che invia un saluto a tutti, è rimasto grossomodo 
invariato. E' cambiato, invece, lo spazio (su carta) a 
nostra disposizione il quale si è accorciato, ma non 
altrettanto si può dire per i contenuti che sono rimasti 
di pari numero e importanza. Tagliati tanti fronzoli 
(qualche rubrica, l'articolone, le recensioni di gio- 
chi), la nostra rivista si presenta ora molto più snella 
fornendo quello che tutti si aspettano: l'essenziale! 


E IL CORSO? 


Giacché considero la vostra nuova rivista un po' 
come la continuazione della gloriosa testata Super- 
commodore C64/128, di porre un paio di domande 
che ritengo siano di interesse per i nuovo lettori. 
1) Il Gruppo Editoriale Jackson aveva iniziato sulle 
pagine della sua rivista un Corso di BASIC a puntate 
il quale ora, con la sua chiusura, rimane incompleto. 
Sarebbe fattibile chiedere alla Jackson di poter con- 
tinvare sulle pagine della presente rivista la pubblica- 
zione del suddetto corso al fine di consentire a chi già 
aveva iniziato la raccolta, di completarla? 
2) Sarà possibile collaborare con SC 64 per scambia- 
re sulle pagine della rivista idee, progetti e program- 
mi? Ed ancora, si potrebbe spedire la rivista agli 
abbonati in busta chiusa e non trasparente in modo 
da evitare quanto più possibile furti, come sempre più 
spesso accade e dei quali sono stato spesso vittima? 
F. Barbabella - ROMA 


Allora, iniziamo con la prima delle due richieste. 
Premettendo che non sia possibile fare la frittata 
senza rompere le uova, vedremo cosa si può fare in 
accordo anche col Gruppo Editoriale Jackson che 
aveva messo a disposizione dei suoi lettori il corso di 
BASIC a cui si fa riferimento. Le soluzioni potrebbero 
essere molteplici, si potrebbe fornire su richiesta la 
parte del corso rimanente, si potrebbe magari dedica- 
re alla chiusura del corso un numero speciale di più 
pagine... staremo a vedere in futuro. Una cosa che 
non possiamo,purtroppo fare, è quella di proseguire 
il corso su queste pagine in quanto lo spazio utile si 
dimezzerebbe con un non gradito taglio di program- 
mi. Per quanto concerne la seconda richiesta, la 
risposta è sì: è possibile collaborare inviando pro- 





grammi di qualsiasi tipo a DTP Studio via Matteotti, 
14 - 28043 Bellinzago Novarese (NO). | programmi 
verranno vagliati dalla redazione ed eventualmente 
pubblicati e quindi messi a disposizione di tutti. In 
merito alla spedizione in busta chiusa e opaca, non 
sappiamo ancora se ciò sarà possibile, in quanto nel 
momento in cui stiamo rispondendo, non abbiamo 
ancora affrontato il problema. Comunque possiamo 
anticipare che, se non subentreranno problemi tecni- 
ci o postali, potremmo anche prendere in considera- 
zione il suggerimento. Il disco inserito all'interno 
della rivista sarà protetto da un cartoncino, comun- 
que non possiamo escludere che qualche pezzo 
venga danneggiato durante il viaggio di recapito. 
Qualora ciò accadesse, il disco danneggiato andrà 
rispedito all'indirizzo di cui sopra presso il quale 
verrà velocemente sostituito e quindi ritornato all'ab- 
bonato nel più breve tempo possibile. 


LA DIRECTORY 


In questo punto della rivista troverete ogni volta il 
listato della directory dei programmi contenuti sul 
disco allegato. 


La directory del disco 


"MLX1.1" 
“COPIA FILE" 
"COPIA FILES" 
"BAG BOY" 
"FAST-DISK" 
“CATTURA SPRITE" 
"DUELLO" 
"DUELLO-LM" 
"FILER" 
"FILER-1" 
“COMPATTATORE" 
"COMP-ML" 
"SANTOLUS" 
"CURIO.1" 
"CURIO.2" 
SSURIO.3” 
"DEBUGGER" 
"DEBUG. LM" 
"RIFLESSI" 
“ALGEBUR" 

n" XTRAX " 
"XTRAX. DEMO" 





Curiosità 





DEF DISCO 


Ecco una routine d'aiuto per chi usa esclusivamente 
il drive. Quando il C64 è nato, molti erano gli utenti 
dotati solo di di registratore; oggi invece tutti, o quasi, 
posseggono il drive che è più veloce ed affidabile. At- 
tivando DEF DISCO è possibile caricare da disco 
come se si stesse caricando da nastro, vale a dire 
senza aggiungere il suffisso ,8 che specifica la peri- 
ferica. Caricando il programma e dandogli il RUN, 
esso si attiva e si può caricare da disco come sopra 
detto. Per disattivarlo dare RUN/STOP-RESTORE, 
mentre per riattivarlo dare SYS679. Se qualche pro- 
gramma dovesse interferire con DEF DISCO, cambia- 
re il valore 679, presente nelle linee 10, 1020e 1030 
in 703; cambiare anche il valore 188 presente nella 
linea 679 in 212 e il valore 195, presente nella linea 
686, in219. Caricare dadisco con: LOAD'CURIO.1",8 
e quindi RUN 


10 I=679 

20 READA: IFA=256THEN1000 

30 POKEI,A:I=I+1:GOTO20 

679 DATA169,188,141,48,3,169,2 

686 DATA141,49,3,169,195, 
141,50 

693 DATA3,169,2,141,51,3,96 

700  DATA162,8,134,186,76, 
165,244 

707 DATA162,8,134,186, 76,237, 

245,256 

PRINT"{HOME}DISCO DEF 

ATTIVATO" 

PRINT"RUN/STOP-RESTORE PER 

DISATTIVARE" 

PRINT"SYS679 PER 

RIATTIVARE" 

SYS679 


1000 
1010 
1020 


1030 


Edi i Ga) 


COLORI 


Il breve programma che segue, stampa su stampante 
la tabella dei colori con i corrispondenti simboli. 
Analizziamolo brevemente per vedere come opera. 
Inizia col porre nella stringa A$, di 16 locazioni, i 
cartteri che si generano premendo contemporanea- 
mente CTRL e i tasti da 1 a 8 e, di seguito, il tasto 
Commodore e i tasti da 1a8. 

Prepara per mezzo di DATA i nomi dei 16 colori, 
quindi con un FOR che esegue 16 cicli preleva dalla 


== 
na] SEE io 


stringa A$ i caratteri-colore in sequenza, li stampa 
uno alla volta ottenendo di modificare il colore del 
cursore e quindi dei caratteri e poi va a leggere e 
memorizzare nella matrice C% di 16 righe e 3 colon- 
ne i contenuti dei byte 53280, 53281 e 646. Infine 
apre il canale diretto alla stampante e stampa una 
tabellina nella quale sono riportati i nomi dei colori, 
i contenuti dei tre byte citati, il carattere corrispon- 
dente al colore come appare tra gli apici, e il codice 
ASCII corrispondente che è quello da usare come 
argomento nella funzione CHRS. 

Caricare da disco con: LOAD"CURIO.2",8 e quindi 
RUN 


=) DIMC% (15,2) ,C$(15): 
S$="{14 SPC}" 
6 M$="COLORE {7 SPC}53280 


53281 646{3 SPC}CAR. CHR$" 
10 A$S=" {BLACK} {WHITE} {RED} 
{CYAN} {PURPLE} {GREEN} 
{BLUE} {YELLOW} {ORANGE } 
{BROWN} {LT.RED} {GRAY1} 
{GRAY2}{LT.GREEN} {LT.BLUE} 


{GRAY3}" 

11 DATANERO, BIANCO, ROSSO, 
CIANO, PORPORA 

12 DATAVERDE, BLU, GIALLO, 
ARANCIONE, MARRONE 


13 DATAROSSO-CHIARO, GRIGIO- 
1, GRIGIO-2 

14 DATAVERDE-CHIARO, AZZURRO, 
GRIGIO-3 

do) FORK=0T015 

20 C$ (K)=MID$ (A$,K+1,1): 
PRINTCS$ (K); 

25 C% (K,0)=PEEK(53280) 
-240 

30 C% (K, 1)=PEEK (53281) 
-240 

35 Cè (K, 2)=PEEK (646) 

40 NEXTK:PRINT 

43 OPEN4, 4:CMD4 

45 PRINT"{7 SPC}CONTENUTI 
BYTE COLORI" 

50 PRINT:PRINTM$ : PRINT 

55 FORK=0T015:READC$ :B$= 
LEFTS (C$+S$, 13) 

57 X$=STR$ (C$ (K, 0) ) :X$=LEF 
T$ (X$+S$, 5) 

58 Y$=STR$ (C$ (K, 1) ) : Y$=LEF 
T$ (Y$+S$, 6) 

60 PRINTB$;X$;Y$; 

61 X$=STRS (C$(K,2)): 
X$=LEFT$ (X$+S$, 6) 

63 PRINTX$; 

65 PRINTCHRS (34) C$ (K) 





CHR$ (34); 
67 PRINT" ";ASC(C$(K)) 
70 NEXTK:PRINT#4:CLOSE4 


Gal Tel Ga 


INTERI 


Se si vogliono conoscere i 7 byte che rappresentano 
in memoria un qualsiasi numero intero, è sufficiente 
dattere e far girare il programma che segue. In questo 
programma definiamo come prima variabile il nume- 
ro N% (intero) in modo che si trovi in memoria a 
partire dalla prima posizione della zona delle variabili 
(linea 10 calcolo del puntatore A all'inizio della zona 
delle variabili). 

Alla linea 2 viene chiesto un numero intero e quindi 
viene presentato il contenuto dei 7 byteche lo conten- 
gono in memoria. Ecco il contenuto dei 7 byte. Primo 
byte: formato dal numero 206, è lasomma del codice 
ASCII di N, cioè del numero 78con 128 (206=78+128); 
secondo byte: formato dal numero 128, in quanto il 
nome della variabile è composto da una sola lettera 
(%); terzo e quarto byte: è il valore del numero 
binario; quinto sesto e settimo byte: sono 0 in quanto 
il numero rappresentato è intero. 

Caricare da disco con: LOAD"CURIO.3",8 e quindi 
RUN 


2 INPUT"{CLR}{2 CUR.GIU} 
NUMERO INTERO= ";N% 

5 M$="NUMERI INTERI IN 
MEMORIA" 


10 A=256*PEEK(46)+PEEK(45) 

15 INPUT"{CLR}{2 CUR.GIU} 
VUOI USARE LA STAMPANTE? 
(S/N) ";R$ 

17 PRINT" {CLR}{CUR.GIU}"MS: 
PRINT"{CUR.GIU}N% = ";N% 

40 FORK=0T06:PRINTPEEK (A+K);" 
";:NEXTK:PRINT 

50 IFR$="N"THEN100 

55 OPENA, 4:CMD4 : PRINTM$ 

60 FORK=0TO6:PRINTPEEK 
(A+K);" "::NEXTK 

70 PRINT:PRINT"N$ = ";N%: 
PRINT#4:CLOSE4 

100 STOP 


Ed, dd ZI 
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On-disk 





DUELLO 


Sig VAT.A = 


Oi fr 


Il fine di ognuno dei due piloti è quello di 
distruggere l'altro per avere la supremazia sul 
territorio. La navicella rossa in alto a sinistra 
viene controllata dal joystick collegato in porta 
2, mentre quella azzurra in basso a destra, dal 
joystick collegato in porta 1. Nella schermata 





Filerè l'ideale per leggere, rinominare e cancel- 
lare un file. Esso può gestire più di un file alla 
volta rendendo le operazioni più veloci e sicure 
grazie anche ai dati che è in grado di fornire. Il 
programma, oltre a specificare il tipo di file in 
esame (seè un program, un sequentialo un user 
e da quanti blocchi è costituito), rivela anche il 
suo indirizzo di partenza, il suo indirizzo finale 
e se il file stesso è protetto oppure no. 

Non appena caricato Filercome specificato alla 
fine dell'articolo, inserire nel drive il disco da 
esaminare ed usare i tasti che seguono a secon- 
da dell'opzione desiderata: i tasti corrispondo- 
no all'iniziale dell'opzione da usare. 

D. Premendo questo tasto viene caricata e vi- 
sualizzata la directory del disco. Filer presnta 
tutti i file presenti sul disco anche quelli che 
sono stati cancellati (*DEL) e che non sono 
visibili caricando normalmente la directory dal 
disco. Nell'angolo in basso a sinistra dello 





iniziale è possibile selezionare i parametri della 
gara; il livello di difficoltà viene stabilito dai 
tasti funzione : il livello 3è il piùdifficile. Con 
i tasti+e -, si selezionano i round da giocare che 
possono andare da 10 a 90 (il valore di default 
è 20). Durante il gioco è possibile tenere sotto 
controllo il proprio punteggio, quello dell'av- 
versario e il record ottenuto in precedenza che 
appare del colore della navicella che lo ha 
stabilito. Guidare al meglio il proprio ship è 
questione di mano: spostando la leva del joy- 
stick a destra, la navicella ruoterà a destra; 
spostando la leva del joystick a sinistra, la 
navicella ruoterà a sinistra; spingendola inavanti 
lo ship accelererà; spostandola all'indietro si 
fermerà. Col pulsante di sparo si potrà colpire 
l'avversario oppure la sua scorta di munizioni 


schermo vengono presentati i numeri di traccia 
e di settore correnti. 

S. Con quest'altra opzione è possibile eseguire 
lo scratch del file, vale a dire cancellarlo dal 
disco sul quale è registrato. Per poter fare ciò è 
necessario selezionare il file da cancellare per 
mezzo della barra spazio, il titolo del file 
inserito nella directory si illuminerà e quindi 
verrà cancellato appunto battendo la $. Con 
questo sistema potrete cancellare quanti file 
vorrete, prima però di cancellarli, vi verrà chie- 
sto se ne siete sicuri: con Y si cancella, conNsi 
torna sui propri passi. Una volta cancellato il 
file, lo stesso verrà presentato nella directory 
seguito da *DEL che significa appunto che il file 
esisteva, ma è stato rimosso. Se si incappa inun 
errore di scrittura o di lettura, ne viene dato 
messaggio nella parte bassa dello schermo e il 
programma si blocca fino a che non venga 
premuta la barra spazio. 

R. Battendo questo tasto è possibile fare il 
rename, ovvero cambiare nome ai file selezio- 
nati col solito sistema. Per fare ciò è necessario 
battere semplicemente il nuovo nome del file 
alla richiesta presente nella parte bassa dello 
schermo e farlo seguire da RETURN. Per correg- 
gere eventuali errori, usare il tasto INST/DEL, 
mentre con RUN/STOP si esce. 

G. L'opzione get permette di richiamare il file 
selezionato e di leggerne il contenuto in codi- 
ce ASCII: anche in questo caso vengono visua- 
lizzate tracce e settori. Si entra in pausa con la 





che è la fonte della sua energia. Lo scontro 
termina quando una delle due navicelle viene 
distrutta: state attenti a non entrare in collisione 
nè con l'avversario nè con il suo deposito 
munizioni, vi sarebbe fatale. Ogni scorta di 
munizioni distrutta vi frutterà 50 punti, ma ve ne 
sono alcune che si possono colpire solamente 
da una particolare angolazione. 

Duello Spazialeè formato da due programmi, il 
primo è un breve programmadi lancio inBASIC, 
mentre il secondo sono 17 blocchi in linguag- 
gio macchina. 


PER CARICARE. Accendere il computer e il 
drive, inserire il disco e digitare LOAD 
"DUELLO", 8. Non appena appare il mes- 
saggio READY, battere RUN. 


barra spazio e con la stessa si riprende. Rag- 
giunta la fine del file, Fi/ersi ferma e attende che 
premiate la barra spazio per leggere il file 
Successivo. 

I. Stà per information, selezionandolo è possi- 
bile conoscere tutti i parametri relativi al file e 
più precisamente: nome, tipo, protezione, lun- 
ghezza in byte, ingombro in block, indirizzo di 
partenza e indirizzo di chiusura. 

RUN/STOP. Premendo questo tasto si inter- 
rompe all'istante l'operazione in corso qualun- 
que essa sia. Premendolo dallo schermo prin- 
cipale, vi viene chiesto se volete tornare al 
BASIC, rispondete Y per uscire e N per rientrare. 
TASTI CURSORE. Usate questi tasti per sele- 
zionare sù e giù i file presenti sullo schermo. 
BARRA SPAZIO. Con labarra potete seleziona- 
re il nome del file per sottoporlo all'operazione 
destinata; se ci ripensate, battetela nuovamente 
e l'opzione verrà annullata. Nei modi geto read, 
la si usa come tasto di pausa per interrompere 
o riprendere lo scrolling del testo. 

B. Permette lo scrolling dell'ultimo file presente 
nella directory. 

HOME. Riporta al primo file della directory. 

A. Seleziona tutti i file presenti senza distinzione 
tra quelli selezionati e quelli non selezionati. 


PER CARICARE. Accendere il computer e il 
drive, inserire il discoedigitare LOAD "FI- 
LER", 8. Non appena appare il messaggio 
READY, battere RUN. 


lì 
(2 





Alle forze alleatesi contro la Terra se ne aggiun- 
ge un'ennesima: Santolus una stazione artifi- 
ciale oltremodo pericolosa poiché zeppa di 
ostacoli ostili. 

Ma la sfida vi affascina e non ci pensate un 
attimo a salire a bordo del vostro ship e a fare 


COPIA FILE 
FAST DISK 


Il menu principale offre ben otto opzioni. La 
prima, raggiungibile battendo il tasto D, mostra 
la directory del disco che in quel momento trova 
posto nel drive. L'opzione © permette la copia- 





rotta verso il nuovo nemico. Il pianeta artificiale 
sipresentacome un intricato labirinto che dovrete 
superare, col joystick in porta 2, per raggiunge- 
re e distruggere la nave madre posta al centro 
del pianeta. Gli alieni faranno di tutto per fermar- 
vi e il vostro ship, formato da tre stadi (ne 
vedrete il numero nell'angolo inbassoa sinistra 
dello schermo), non potrà essere colpito più di 
nove volte per ogni vita. La barra sottostante 
presenta il punteggio e la potenza del vostro 
laser che può essere rifornita abbattendo i box 
con la scritta ST. 

Semplicemente passando sopra altri oggetti, 
potrete rinforzarvi ed ottenere dei bonus extra, 


tura dei file presentando un secondo menu 
comprendente la directory del disco ed un 
puntatore, è sufficiente attivare i file interessati 
con la barra spazio dopo averli selezionati spo- 
stando il puntatore conitasti cursore. Terminata 
la selezione, battere il tasto © per copiare (se- 
guito da Y per convalidare); sarà lo stesso 
programma a richiedere la sostituzione del di- 
sco sorgente con quello di destinazione ed, 
eventualmente, viceversa. Nello stesso menu, la 
X selezionerà tutti i fileeNvi mostrerà il seguito 
della directory se questa non dovesse entrare 
tutta nelle finestre. Le altre opzioni del menu 
principale sono di secondaria importanza, ma 
vale ugualmente la pena di citarle anche se 
velocemente: X - cambia device di destinazione 
in #9 (nel caso si usino due drive); M - Stabili- 
sce che il drive #8 contiene il disco sorgente (nel 


ad esempio: CL vi darà punti extra: KEY vi 
permetterà di aprire delle porte; STfarà il pieno 
di energia agli schermi laser; SRvi sottrarrà un 
modulo; Fvi rallenterà la marcia rendendovi più 
vulnerabile. Altri oggetti si disintegreranno 
semplicemente al contatto col vostro ship, altri 
andranno abbattuti a colpi di laser. Per entrare in 
pausa, premere INST/DEL e per ripartire usare 
la freccia a sinistra nell'angolo in alto a sinistra 
della tastiera. 

PER CARICARE Battere LOAD"SANTO 
LUS",8 quindi RETURN. Attendere che il 
gioco venga caricato e quindi battere RUN 
seguito da RETURN. 


caso in cui si usino due drive); @ - Mette a 
disposizione i comandi del drive; S - Cancella i 
file usando lo stesso procedimento visto in 
precedenza per la copia; P - Vi informa della 
salute del disco posto nel drive 8; N- Stabilisce 
il drive di destinazione. Come alternativa a cia- 
scuna opzione, è possibile tornare al menu 
principale premendo un tasto qualsiasi. 

Per quanto riguarda Fast-Diskè un programma 
ausiliario che viene caricato automaticamente 
da Copia File per velocizzare il caricamento dei 
file da copiare. Caricandolo autonomamente 
con la solita procedura, è possibile, nella mag- 
gior parte dei casi, rendere più veloce anche il 
caricamento dei programmi normali. 

PER CARICARE. Battere LOAD”COPIA 
FILE”,8 seguito RETURN. AI READY col 
cursore, battere RUN seguito da RETURN. 








| messaggi generati da questo programma van- 
no ad aggiungersi ed a integrarsi a quelli stan- 
dard del sistema operativo del Commodore 64. 
Se, ad un certo punto, vi appare un ?UNDEF'D 
STATEMENT ERROR, come fate a sapere in 
quale linea di programma risiede l'errore? E se, 
ad esempio, sopraggiunge un ? SYNTAX ER- 
ROR, come fate a sapere di quale errore di 
sintassi si tratta? Nel BASIC 7.0 esiste ilcoman- 
do HELP il quale lista la lineache è causa di guai 


costa 
rn 


ed evidenzia la locazione errata illuminandola: 
ebbene Debugger trasferisce queste possibilità 
al BASIC 2.0, infatti quando esso rileva un 
errore, presenta con un asterisco in campo 
inverso la locazione errata e stampa uno dei 
messaggi dettagliati che seguono con tanto di 
spiegazione. 

_EXPECTED. || computer si aspetta un partico- 
lare carattere che non c'è. Ad esempio, battete la 
linea 10 INPUT"NOME:"N$ e quindi date RUN. 
il programma si fermerà e Debugger presenterà 
il messaggio di cui sopra preceduto da un punto 
e virgola (;) che è il simbolo mancante e tra gli 
apici in chiusura e la variabile N$ apparirà un 
asterisco in campo inverso ( BI) che indica il 
punto in cui è avvenuta l'omissione. 
MISSING). Non è stata chiusa una parentesi. 
Battete, ad esempio in modo diretto, PRINT 
TAB(8 e quindi RETURN. Vedrete apparire il 
messaggio sopra citato. 


EXTRA CHARACTERS. Appare quando vi sono 
dei caratteri in più nel comando in corso. Come 
esempio battete la linea 10 POKE 49152,4,9,12 
e datele il RUN. 

MUST BE POSITIVE. Diverse funzioni BASIC 
richiedono argomenti di valore positivo, se 
questo è invece negativo verrà segnalato da 
questo messaggio. 

MUST BE LESS TAN 256. | comandi o le 
funzioni che lavorano sul byte, esigono che i 
loro argomenti numerici non oltrepassino mai il 
valore 255, qualora lo facessero, questo mes- 
saggio lo denucerebbe. 

MUST BE -32768 TO 32767. Le variabili 
intere e diversi parametri di comandi e funzioni 
BASIC, devono essere compresi tra -32768 e 
32767. AI difuori di questi valori appare il rela- 
tivo messaggio. 

NUMERIC TYPE EXPECTED. Debugger pre- 
senta questo messaggio quando il programma 


si aspetta una espressione numerica e si vede 
arrivare una stringa: provate a digitare PRINT 
CHRS("A"), date RETURN e vedrete. 

STRING EXPECTED. E' l'inverso del prece- 
dente: il programma si attende una stringa e 
invece si vede arrivare un numero: provate a 
digitare e a dare il RUN al comando PRINT 
ASC(6). 

% VARIABLES DISALLOWED. Debugger pre- 
senta questo messaggio quando trova una va- 
riabile intera (%) dove dovrebbe essercene una 
che intera non può essere. Ad esempio, l'indice 
di un loop FOR-NEXT non può essere una 
variabile intera. 

OPERATOR USED TWICE. Gli operatori sono 
i simboli matematici; battendoli più di una volta 


AU 
RIFLESSI 





Il programma è interamente scritto in BASIC ed 
una volta caricato e lanciato vi presenterà un 


di seguito si incappa nell'errore qui segnalato. 
Provate a digitare e a dare il RUN alla linea 10 
IFY>>5 THEN STOP. 

OUT OF STACK SPACE. Incontriamo questo 
errore quando il programma esce da una su- 
broutine controllata da un GOSUB, oppure da 
un loop FOR-NEXT. 

In alcuni casi, le spiegazioni di Debugger pos- 
sono creare qualche perplessità. Provate, ad 
esempio a digitare POKE 2820,©. AI RETURN 
vi troverete davanti un (EXPECTED. Ciò accade 
perché il programma, dopo la POKE, analizza la 
© e siccome questa non è né un numero né una 
variabile numerica, viene interpretata come l'u- 
nica cosa rimanente che possa avere un senso: 
una espressione numerica posta tra parentesi. 


menucon quattro opzioni:1-inizio deltest; 2 
- Istruzioni test; 3 - Per conoscenza; 4 - Abban- 
dona. Con la prima opzione si dà inizio alle 
prove, con la seconda vengono presentate le 
istruzioni che riportiamo qui di seguito, con la 
terza è possibile conoscere su quale computer 
questo programma sia in grado di girare ed 
infine con la quarta si ritorna al BASIC. 

Data l'opzione 1, apparirà uno schermo azzurro 
con la scritta Pronto?che, dopo qualche secon- 
do (questo tempo di attesa è variabile per non 
permettere all'esaminato di prenderci lamano...), 


Ma siccome © non è neppure una parentesi 
tonda in apertura, ecco spiegato il perché del 
messaggio. 

Praticamente, Debugger è compatibile con tutti 
i programmi in quanto viene locato dal caricato- 
re all'inizio dell'area BASIC ed occupa solo 742 
byte, un'inezia. Per evitare conflitti con altri 
programmi locati nella stessa zona, ricordatevi 
di caricare Debugger dopo aver caricato even- 
tuali altre utility, in quanto verrà automatica- 
mente rilocato immediatamente sotto al pro- 
gramma in memoria. 

PER CARICARE Battete LOAD'DEBUGGER" 8 
quindi RUN. Il programma si caricherà e si 
rilocherà automaticamente a partire da una certa 
locazione. 


verrà sotituito da una seconda schermata azzur- 
ra con la scritta Premi un tasto in negativo ed è 
appunto qui che bisognerà premere un tasto 
qualsiasi nel più breve tempo possibile. Il tempo 
impiegato viene presentato insecondi e sono da 
considerarsi buoni tempi compresi tra 1 e 2 
secondi: tempi inferiorisono da Ultraman, tempi 
tra 2 secondi e 2,5 secondi da calmi e tempi 
superiori a 2,5 secondi da suonati. Col tasto H 
è possibile tornare al menu in ogni momento. 

PER CARICARE Battere LOAD"RIFLES 
SI", 8 seguito da RUN. 





TRANS 128 





Molto spesso la potenza e la versatilità di un 
programma vengono, al primo colpo d'occhio, 
traditi dalla loro lunghezza: è sicuramente il 
caso della breve routine che stiamo per presen- 
tarvi. Trans 128 trasferisce dati tra il banco 0 e 
ilbanco 1. Può essere importante nel caso in cui 
stiate scrivendo un programma che preveda 
grafica in alta risoluzione, schermate, sprite 0 
testo. Senza spostare il vostro programma dal 
bank 1, potrete bufferizzare qui anche i dati che 
vi interessano ed inoltre avrete a disposizione 
una opzione di overlayper visualizzare screen 
multipli. La demo che accompagna la routine in 
linguaggio macchina, è scritta in BASIC e poi- 
ché richiama TRANS, è bene che risieda sullo 


stesso disco e che il file in.m. si chiami proprio 
così. La demo traccerà un cerchio al centro 
dello schermo e Trans 128 lo copierà nel banco 
1; fatto c iò il cerchio sparirà e verranno dise- 
gnate due linee intersecanti. A questo punto i 
dati nel banco 1 verranno presentati nelle por- 
zioni superiore e inferiore dello schermo che 
contengono le linee stesse. Avremo in definitiva 
due cerchi ad alta risoluzione con le due linee 
intersecanti. Trans 128 è una subroutine da 
usare assieme ad un altro programma, per cari- 
carlo battere BLOAD"XTRAX",B0,P7028. Prima 
di trasferire i dati, specificare i valori dei byte 
basso e alto degli indirizzi sorgente e destina- 
zione. Questa operazione il rogramma demo la 
svolge nella linea 160 trasportando i dati dalla 
zona 28160-32319 all'indirizzo di destinazione 
8192. Nel sistema esadecimale, tali indirizzi 
sono $6E00-$7E3F e $2000. Il C128 lavora con 
indirizzi di due byte ognuno dei quali si riferisce 
aduedigitdell'indirizzo esadecimale. Peresem- 
pio, nel primo indirizzo i valori dei byte sono 
$6E e $00, il primo è quello alto, il secondo 
quello basso. Convertendoli in decimale, questi 
valori diventano 110 e 0. La coppia decimale 


che chiude il blocco dei dati sorgente, richiede 
che gli venga sommato un 1, quindi il loro 
valore sarà 1266 64. Per l'indirizzo destinazione 
i valori dei byte saranno 32 e 0. La parte di 
programma che trasferisce i dati si può riassu- 
mere in questo modo: 

170 POKE249,0: POKE250,10 

180 POKE 251,64: POKE 252,26 

190 SYS7028,0,32,6 

Più in generale, il formato sarebbe: POKE 
249,valore di partenza sorgente (byte basso): 
POKE 250,valore di partenza sorgente (byte 
alto): POKE 251,valore finale sorgente +1 (byte 
basso): POKE 252,valore finale sorgente +1 
(byte alto) il tutto seguito da SYS 7028, valore 
destinazione (byte basso),valore destinazione 
(byte alto),tipo di trasferimento. \| tipo di trasfe- 
rimento vale 6 in quanto si ha un trasferimento 
dal banco 1 al banco Q., gli altri valori sono: 0 
per ilsolobanco 0; 1 dabanco 0a banco 1; 2 da 
banco 1 a banco 0; 3 per il solo banco 1;4 sul 
solo banco 0; 5 banco 0 sul banco 1; 6 banco 1 
sul banco 0; 7 sul solo banco 1. 
PERCARICARE BattereBLOAD"XTRAX", 
BO,P7028 seguito da RETURN. 
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coPIA SPRITE 
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di D. Di Guglielmo 


Cattura Sprite consente di catturare, quindi di 
usare nei propri programmi, qualsiasi sprite dei 
videogames sia in formato normale che in 
multicolor. Copia Spriteserve invece per copia- 
re uno sprite da un banco ad un altro, grosso 
vantaggio per lavorare in banco 0. 

Non appena caricato da disco Cattura Sprite, 
dare al programma il consueto RUN. Sul vi- 
deoapparirà la richiesta BANCO ? alla quale 
dovrete rispondere digitando il numero del banco 
in cui si vuole cercare come indicato in tabella. 
Alla richiesta PAGINA ? dovrete rispondere di- 
gitando le pagine che volete ispezionare (ad 
esempio: 100, 255). Battendo RETURN, per 
default le pagine andranno da 0 a 255 (cioè un 
banco intero). A questo punto apparirà sullo 
schermo uno sprite, di solito privo di senso: per 
andare avanti dovrete premere la barra spaziatri- 
ce, mentre per tornare indietro di uno sprite 
dovrete battere il segno ». Non appena trovato lo 
sprite che interessa, lo si potrà vedere in modo 
multicolor o in modo normale, semplicemente 
battendo il tasto M. Con i tasti da 1 a 4 si potrà 
variare il colore come segue: 1 = sfondo, 2 = 
colore sprite, 3= multi 0,4=multi 1 econitasti 
Xe Y lo si potrà espandere. Per poterlo utilizza- 
re, premere la freccia a sinistra, sul video 
appariranno tutte le informazioni relative allo 
sprite: banco, pagina e locazioni di memoria 
dove lo sprite stesso risiede. Rispondendo S 
alla richiesta VUOI | DATI ? appariranno sullo 
schermo i 63 dati che formano lo sprite, sarà 
sufficiente ricopiarli e riportarli nei propri pro- 





grammi oppure salvarli su disco permezzo di un 
programma monitor. Per uscire dal programma 
basta premere la Q. 

Copia Sprite permette di trasferire lo sprite da 
determinate locazioni ad altre, il che si rivela 
molto utile per poter lavorare nel banco 0. Il 
programma non fa altro che leggere tutte le 256 
pagine (da 0 a 255) di ogni banco. Per il banco 
0 (0-16383)non vi sono grossi problemi, basta 
pokare in2040 un numero compresotra0 e 255. 
Nella locazione 2040 risiede, infatti, il puntatore 
dello sprite 0 che indica la pagina dove lo sprite 
deve leggere i dati. Per gli altri tre banchi (1-2- 
3) bisogna segnalare al computer lo sposta- 
mento di banco e quello dei puntatori. Per fare 
ciò usare l'istruzione: 

POKE56576, (PEEK (56576) 

AND 252)+N 

dove Nha uno dei valori riportati in tabella. Non 
appena cambiato banco, sullo schermo appari- 
ranno caratteri privi di senso e per pulire il video 
bisognerebbe spegnere tutti i pixel, ma questa 
procedura, oltre ad allungare il programma, ne 
ridurrebbe la velocità di esecuzione. Un sistema 
più rapido e semplice, è quello di dare ai 
caratteri lo stesso colore dello sfondo. Per sapere 
dove sono locati i dati degli sprite, usare la 
formula seguente: 
IND=B*16384+PAG*64 

i puntatori degli sprite verranno ricavati con: 
PUN=B*16384+P 

dove B è il numero del banco, PAG è la pagina 
(0-255) e P va ricavato dal seguente elenco: 


INDIRIZZI 


dec 





00000-16383 
16384-32767 

32768-49151 
49152-65535 








2040 per lo sprite 0 
2042 per lo sprite 2 
2044 per lo sprite 4 
2046 per lo sprite 6 


2041 per lo sprite 1 
2043 per lo sprite 3 
2045 per lo sprite 5 
2047 per lo sprite 7 


PER CARICARE. Accendere il computer e il 


drive, inserire il disco e digitare LOAD 


"CATTURA SPRITE",8 per il primo 

programma, oppure LOAD"COPIA SPRI- 
TE", 8 per il secondo. 

Per consultare il listato di 


Cattura Sprite, caricare e 


LISTare il programma da disco. 
COPIA SPRITE 


REM KALAAFEAAFTFA KAFKA RAEE AZEAAEEA 


mE 







REM * COPIA SPRITE * 
3 REM FATTTLTEATTEATTEATE EA RA 
10 PRINT"{CLR}{CUR.GIU} 
INDIRIZZO V 10" 
12 INPUT "{CUR.GIU}BANCO ";BV 
14 INPUT "PAGINA";PV 
1 PRINT"{CUR.GIU} COPIA A:" 


J 
18 INPUT "{CUR.GIU}BANCO";BN 


20 INPUT "PAGINA";PN 

22 PRINT"{3 CUR.GIU} TUTTO 
OK ds 

24 GETAS : IFA$S=""THEN24 

26 IPAS="iR "THIN 


28 LO=BV*16384+PV*64: 
CO=BN*16384+PN*64 
30 SENSEO 
PEEK (LO+] ): 
32 GOTO 10 





esa 


0000-3FFF 
4000-7FFF 
8000-BFFF 
F000-FFFF 














Sembra facile recapitare un pacco ad ogni forni- 
toreesembraaltrettanto facile incassare il denaro 
che essi lasciano scorrere sul tappeto mobile 
del bancone. In realtà l'operazione non richie- 
derebbe alcuna difficoltà se il bancone da gesti- 
re fosse unico: ebbene è quadruplo! Una volta 
caricato, il programma presenterà la schermata 


iniziale e per iniziare a giocare basterà premere 
RUN/STOP. Apparirà l'apertura del livello 1 ed 
immediatamente sarete proiettati davanti ai 
banconi sui quali ruotano i tappeti mobili che 
scorrono nei due diversi sensi: quelli che porta- 
no la merce scorrono verso i fornitori, quelli che 
portano il denaro scorrono invece verso di voi. 
Nello stesso tempo anche i fornitori si avvicina- 
no inesorabilmente e bisogna stare attenti a 
liberare tanti pacchi quanti sono i fornitori che 
via via appaiono alla sinistra dello schermo, nè 
di più nè di meno. Per porre un pacco sul 
tappeto del bancone, è sufficiente premere il 
fuoco del joystick, mentre per spostarsi da un 
bancone all'altro basta muovere verso l'alto o 
verso ilbasso la cloche. Dovrete essere puntuali 
all'arrivo del denaro al termine del bancone, vi- 
ceversa perderete una delle quattro vite di cui 
siete dotati. Spedendo invece un pacco ad ogni 
fornitore e riscuotendo senza incertezze, potrete 
passare di livello ed affrontare nuove difficoltà. 
In Bag Boy il punteggio è assai semplice (lo 
notate nella parte bassa dello schermo assieme 
al numero di vite che vi sono rimaste), per ogni 
pacco giunto a destinazione incasserete 5 punti, 
mentre per ogni incasso... incassato i punti 
incamerati saranno ben 20. Ogni volta che si 
sale di livello vi vengono accreditati 100 punti. 
La pausa del gioco si ha per mezzo del tasto 
SHIFT, e durerà fino a quando non lo si rilasci. 
Una sosta più lunga sa ha con SHIFT/LOCK e 
ripremetelo quando vorrete riprendere la gara. 
PER CARICARE. Battere LOAD"BAG BOY",8 
quindi RETURN. Caricato il gioco, battere RUN 
seguito da RETURN. 


0801:15 08 00 00 9E 28 32 30 C7 
0809:37 35 29 3A 12 42 41 47 2E 
0811:47 45 52 00 00 00 A2 00 AS 
0819:00 00 A9 EF 8D 28 03 A9 1A 
0821:C1 8D 18 03 A9 OF 8D 18 65 
0829:D4 4C 68 15 F4 78 A9 23 15 
0831:8D 12 DO AD 11 DO 29 7F 1F 
0839:8D 11 DO A9 81 8D 1A DO 50 
0841:A9 4D AO 08 8D 14 03 8C 5D 
0849:15 03 58 60 AD 19 DO 8D B6 
0851:19 DO 29 01 DO 07 AD OD 62 
0859:DC 58 4C 31 EA AD 12 DO 8D 
0861:C9 32 BO 07 AO 57 A2 00 11 
0869:4C BD 08 C9 66 BO 07 AO 45 
0871:87 A2 01 4C 8D 08 C9 96 89 
0879:B0 07 AO B7 A2 02 4C 8D 76 
0881:08 C9 C6 BO DB AO 23 A2 36 
0889:03 4C 8D 08 8C 12 DO 8E 3D 
0891:41 09 8A 0A 0A 0A 8D 42 4C 
0899:09 AA AO 00 A9 80 8D 10 67 
08A1:DO 8D 17 DO A9 FF 8D 1C FI 


10 


08A9 


O8B1l: 
08B9: 
:DO 
08C9: 
08D1: 
08D9: 
OBEl: 
08E9: 
08F1: 
08F9: 
0901: 
0909: 
0911: 
0919: 
0921: 
0929: 
3CC 
0939: 
202 


08C1 


0931 


0941 


0949: 
:DO 


0951 


0959: 
0961: 
0969: 
0971: 
0979: 
0981: 
0989: 
0991: 
0999: 
09Al: 
09A9: 
09B1: 
09B9: 
:F0 


09C1 


0909: 
: BD 
09D9: 
09E1: 
:C9 
:DE 
09F9: 
OAOL: 
0A09: 
Le | 
0A19: 
:C9 
0A29: 
0A31: 
0A39: 
DAG: 
0A49: 
OASI: 
:D7 


09DI 


09E9 
09F1 


oAll 


0A21 


0AS9 


0AG6l: 
0A69: 
:EB 


0A71 


0A79: 
0ABIl: 
0A89: 
DAL: 


:DO 


3C 
99 


5C 
99 


40 


8C 
03 


99 
68 
3C 
6C 
9C 


08 


54 


00 
00 
00 
00 
2B 
2C 
29 
2A 
29 
2A 
2B 
2C 
02 


03 


12 
03 


07 
E8 


0A 


FO 
3C 
A9 
00 
00 
00 


00 
AC 


3F 
00 
00 
00 


8D 
03 
ol 
ED 
03 
27 


09 
43 
8D 
c9 
B9 
7C 
A8 
2D 
5D 
8D 
BD 
03 
10 
09 
FS 
00 
00 
00 
00 
2E 
2E 
2E 
2E 
00 
00 
00 
00 


07 
E8 
44 
FO 
DO 
00 
4C 
00 
c9 
EO 
00 
0A 
00 
OD 
03 
ol 
00 
00 
00 
40 
55 
3A 
AC 


00 
00 
03 


15 
99 
DO 
AO 
99 
DO 
3E 
8D 
09 
43 
00 
7C 
03 
68 
2D 
SD 
8D 
BD 
01 
79 
99 
60 
17 


FF 
2F 
2F 
2F 
2F 
00 
00 
00 
00 
00 
cC9 
EO 
03 
5D 
ED 
FO 
03 
BD 
12 
03 
FO 
A8 
FO 
4C 
A9 
8D 
00 
00 
FF 
ol 
00 


3A 
FO 
00 
00 
FF 


DO 
00 
C8 
00 
F8 
C8 
09 
26 
c9 
09 
FO 
03 
c8 


2D 
SD 
8D 
BD 
07 
00 
3C 
00 
00 
00 
00 
2D 
2D 
2D 
2D 
00 
00 
00 
00 
TB 


12 
03 
Cc9 
DE 


07 
E8 
54 
FO 
DO 
23 


09 
1E 
00 
DC 
00 
00 
00 
55 
0F 
AC 


05 
00 
00 
co 


8C 
DO 
c8 


07 
E8 
8D 
DO 
00 
AO 
OE 
99 
co 
68 
4A 
7A 


DA 
05 
4C 
03 
00 
00 
00 
00 
2D 
2D 
2D 
2D 
00 
00 
00 
00 
A9 
3C 
FO 
DO 
00 
44 
00 
CI 
EO 
03 
33 
ED 
A8 
00 
c8 
0A 
8D 
02 
00 
00 
00 
40 


3A 
AC 


00 
00 
00 


1D 


E8 
42 
B9 
co 
25 
CE 
DO 
00 
B9 
SC 
20 
40 
35 
65 
95 
CS 
02 
AO 
c8 
00 
00 
00 
00 
2D 
2D 
2D 
2D 
00 
00 
00 
00 
00 
03 
72 
ED 
FO 
03 
BD 
12 
03 
C9 
DE 


88 
B9 
E8 
A9 
DB 
60 
00 
00 
55 
ol 
FO 
EB 
3A 
50 
00 
00 
55 


DO 
17 
co 
09 
37 
08 
DO 
43 
21 
B9 
5C 
03 
DO 
3C 
6C 
9C 
CC 
08 
0A 
00 
co 
00 
00 
00 
00 
29 
2A 
2B 
2C 
2B 
2C 
29 
2A 
8D 
C9 
DE 


07 
E8 
AC 
FO 
DO 
00 
54 
DB 
98 
3C 
EO 


02 
FO 
00 
00 
00 
7D 
3A 
AC 
EB 
90 
00 
00 
00 


BD 
09 
10 
BD 
09 
DO 


09 
A9 
16 
03 
8A 
E6 
3C 


cc 
08 
00 
B9 
60 
00 
00 
00 
00 
2A 
2B 
2C 
29 
2C 
29 
2A 
2B 


00 
3C 
00 
C9 
EO 
03 
48 


FO 
03 
02 
0A 
03 
03 
99 
60 
00 
00 
Se 
01 
40 


3A 
AC 
00 
00 


00 


6D 
88 
F8 
18 
22 
4A 
95 
B9 
8E 
99 
20 
65 
03 
32 
79 
81 
89 
B2 
E4 
26 
DB 
55 
4E 
73 
7B 
FO 
03 
8E 
14 
AC 
cl 
45 
DO 
D6 
D2 
B3 
67 
6C 


24 
30 
18 
8A 
1D 
17 


56 
mn 
F4 
99 
55 
55 
99 
BB 
20 
F3 
97 
7F 
A8 
95 
9D 
C7 


0A99:D7 
OAA1:00 
OAA9:B0 
O0AB1:EB 
0AB9:0F 
0AC1:00 
0AC9:00 
0AD1:00 
0AD9:DD 
OAE1:00 
0AE9:AC 
0AF1:EB 
0AF9:0F 
0B01:00 
0B09:00 
0B11:00 
0B19:D7 
0B21:EC 
0B29:B0 
0B31:AB 
0B39:03 
0B41:15 
0B49:01 
0B51:64 
0BS9:AA 
0B61:01 
0B69:00 
0B71:00 
0B79:00 
0B81:00 
0B89:00 
0B91:40 
0B99:00 
OBA1:00 
0BA9:00 
OBB1:00 
0BB9:00 
OBC1:F0 
0BC9:05 
0BD1:00 
0BD9:9A 
OBE1:00 
0BE9:00 
OBF1:0F 
0BF9:00 
0C01:3F 
0C09:00 
0C11:00 
0C19:6A 
0C21:00 
0C29:00 
0C31:33 
0C39:00 
0C41:20 
0C49:A2 
0C51:07 
0C59:E8 
0C61:47 
0C69:F0 
0C71:D0 
0C79:00 
0C81:4F 


00 
14 
0E 
BO 
EB 
00 
00 
00 
co 
55 
3A 
EC 


00 
00 
03 
00 
14 
FA 
BO 


54 


01 
64 
55 
00 
00 
00 
00 
40 
00 
00 
00 
00 
00 
00 
00 
50 
00 
00 
0A 
00 
00 
FF 
00 
15 
ol 
40 
2A 
00 
00 
33 
D3 
00 
c9 
EO 
03 
5F 
ED 
FO 
03 


00 
00 


0E 
FO 
00 
00 
FF 
01 
00 


3A 
FO 
00 
00 


1C 
00 


03 
FO 
00 
64 


01 
50 
00 
00 
00 
0A 
00 
00 
00 
00 
00 
00 
00 
ol 
00 
AO 
00 
00 
0F 
00 
00 
00 
00 
2A 
00 
00 
3F 
00 
00 
OC 
BD 
FF 
03 
C9 
FE 


07 
E8 





55 
03 
BO 
EB 
01 
00 
00 
00 
55 
0F 
AC 
DB 
03 
00 
00 
co 
55 
EF 
BO 


03 
6A 
01 
64 


00 
00 
00 
00 
AO 
04 
00 
00 
00 
00 
00 
00 
50 
03 
00 
9A 
00 
00 
0F 
00 
3F 
00 
10 
2A 
00 
00 
33 
00 
A9 
3F 
FO 
DO 
00 
47 
00 
c9 
EO 


00 
EB 
0E 
BO 
FF 
00 
00 
00 
40 


3A 
AC 


00 
00 
00 
00 
EB 
3F 
BO 


94 


ol 
64 
00 
00 
00 
00 


01 
00 
00 
00 
00 
00 
00 
00 
50 
ol 
00 
0F 
00 
00 
00 
00 
15 
ol 
00 
3F 
00 
00 
00 
00 
03 
74 


FO 
03 
BD 
FF 
03 


> 


00 
co 
EB 
0E 
40 
00 
00 
DA 
ol 
FO 


3A 
co 
00 
00 
55 
FC 
co 


03 
40 
ol 
64 


ol 
00 
00 
00 
00 
2A 
04 
00 
00 
00 
00 
00 
00 
03 
00 
98 
05 
00 
OF 
00 
00 
00 
00 
2A 
00 
00 
3F 
00 
00 
8D 
c9 
FE 


07 
E8 
4F 
FO 
DO 


7D 
0E 
BO 
EB 
AO 
00 
00 
co 
FS 
3A 
AC 
E? 
90 
00 
00 
00 
7D 


BO 


90 
55 
ol 
64 


00 
00 
00 
00 
82 
00 
00 
00 
00 
00 
00 
00 
50 
oi 
00 
5A 
00 
00 
0F 
00 
15 
00 
10 
2A 
00 
00 
F3 
00 
DE 
00 
3F 
00 
C9 
EO 
03 
4A 
ED 


00 


0E 
BO 
00 
00 
3C 
01 
40 


3B 
AC 
00 
00 
FF 
00 
00 


03 
BO 
00 
64 


01 
64 
00 
00 
00 
00 
A8 
40 
00 
00 
00 
00 
00 
03 
00 
50 
54 
00 
0F 
00 
00 
00 
00 
04 
00 
00 
3F 
00 
co 
F2 
02 
FO 
03 
BD 


03 
c9 
FE 


E9 
14 
89 


co 
DS 
1A 
BD 
B4 
7C 
14 
07 
B2 
17 
1F 
49 
E2 
94 
c3 


2C 
55 


Fl 
89 
57 
7F 
87 
8F 
8E 
48 
C7 


B7 
BF 
Cc? 
D2 
22 
7B 


mE 


02 
1E 
9E 
10 
D6 
13 
80 
6D 
FC 
26 
BE 
ll 
70 
8E 
8F 
43 
4E 
A6 


SRE 


0C89:00 
0C91:C9 
0C99:E0 
OCA1:00 
O0CA9:0A 
0CB1:00 
0CB9:0D 
0CCL:03 
0CC9:0C 
0CD1:0C 
0CD9:0D 
OCE1:3C 
0CE9:21 
OCF1:0D 
0CF9:C8 
0D01:0D 
0D09:A9 
0D11:AD 
O0D19:AD 
0D21:B9 
0D29:00 
0D31:E4 
0D39:00 
0D41:42 
0D49:F0 
0D51:C9 
0D59:EE 
0D61:F0 
0D69:03 
0D71:C9 
0D79:81 
0D81:AD 
0D89:88 
0D91:03 
0D99:98 
ODA1:3F 
0DA9:03 
ODB1:AD 
0DB9:00 
0DC1:03 
0DC9:02 
ODD1:A9 
0DD9:0A 
ODE1:D7 
0DE9:02 
0DF1:48 
0DF9:0F 
0E01:01 
0E09:4C 
0E11:A9 
0E19:03 
0E21:0A 
0E29:D4 
0E31:20 
0E39:60 
0E41:8D 
0E49:8D 
0E51:A9 
0E59:04 
0E61:A9 
0E69:01 
0E71:81 


BD 
FE 
03 
FO 
A8 
FO 
4C 
A9 
A9 
60 
8C 
03 
OD 
cC9 
A9 
AD 
00 
37 
37 
3F 
99 
02 
8D 
03 
30 
00 
4A 
07 
AD 
FF 
OD 
DF 
98 
C9 
AA 
03 
4C 
ES 
A2 
c9 
DO 
01 
0A 
02 
C9 
cC9 
C9 
60 
80 
14 
D4 
8D 
A9 
1F 
A9 
06 
00 
LI 
D4 
44 
D4 
8D 


57 03 C9 00 FO 07 63 


FO 35 FE 57 


DO 
756) 
A2 
09 
AD 
00 
01 
A2 
36 
D9 
E8 
03 
00 
36 
8D 
oD 
OD 
03 
3F 
60 
EO 
C9 
EE 
FO 
03 
c9 
SA 
FO 
A9 
02 
0A 
00 
A9 
c9 
B8 
OD 
00 
FS 
0A 
8D 
AA 
60 
01 
03 
05 
4C 
0E 
8D 
A9 
ol 
41 
0F 
84 
D4 
D4 
20 
60 
A9 
A9 
04 


ED 
A8 
00 
c8 
OC 
8D 
8D 
00 
oD 
3F 
EE 
DO 
8D 
OD 
36 
0A 
c9 
C9 
03 
00 
02 
00 
42 
07 
AD 
FF 
03 
06 
01 
c9 
0A 
FO 
00 
32 
OD 
C9 
CE 
90 
A9 
El 
co 
00 
FO 
FO 
FO 
E6 
A9 
06 
00 
D4 
8D 
A9 
8D 
8D 
A9 
1F 
A9 
88 
95 
D4 


AD 
88 
B9 
E8 
A9 
DD 
DE 
AO 
8C 
03 
35 
EA 
35 
C9 
OD 
(17: 
04 
00 
9D 
00 
8D 
FO 
03 
c9 
52 
FO 
c9 
EE 
8D 
00 
0A 
03 
8D 
90 
E8 
03 
D7 
10 
00 
02 
04 
03 
1E 
66 
08 
OE 
41 
D4 
8D 
A9 
04 
40 
05 
01 
81 
0F 
88 
8D 
8D 
A9 


—n È, 


03 E8 44 


DD 02 C9 8E 
98 0A 0A AI 


3F 03 
ED 03 
01 99 
02 4C 
02 20 
00 8C 
37 OD 
DO 03 
OD AD 
CA CA 
OD EE 
03 DO 
EE 37 
CA A8 
DO CO 
FO 0B 
3C 03 
00 04 
El 02 
07 C9 
AD 4A 
FF FO 
03 C9 
14 EE 
00 FO 
5A 03 
EO 02 
FO 30 
A8 B9 
4C B8 
E5 OD 
06 99 
EE E5 
DO E8 
02 BD 
98 CD 
9D 42 
c8 98 
DO DF 
03 AD 
c9 02 
C9 04 
C9 06 
4C B3 
8D 05 
A9 08 
02 D4 
95 8D 
D4 A9 
8D 04 
D4 A9 
D4 A9 
8D 04 
A9 80 
8D 05 
06 D4 
00 D4 
8C 20 


C9 
FO 
3F 
CF 
D3 
35 
BD 
20 
35 
CA 
36 
D7 
OD 
AA 
60 
A9 
EE 
A9 
AD 
FF 
03 
22 
00 
52 
10 
4C 
60 
A8 
42 
OD 
BD 
42 
OD 
AO 
42 
D7 
03 
(07° 
EE 
DS 
FO 
FO 
FO 
OE 
D4 
8D 
A9 
00 
28 
D4 
20 
95 
D4 
8D 
D4 
8D 
A9 
1F 


DEF 
75 
AS 
FD 
5E 
AF 
4C 
89 
50 
53 
AB 
78 
AC 
86 
SB 
68 
94 
FB 
98 
AD 
50 
31 
EA 
F6 
2C 
22 
31 
14 
98 
76 
BB 
8A 
1C 
28 
ED 
ED 
F2 
3F 
EE 
c9 
B3 
65 
22 
c4 
E6 
04 
E8 
DI 
0A 
B6 
48 
5D 
80 
2C 
AC 
DC 
89 
SE 


0E79:0F A9 80 8D 04 


0E81:44 
0E89:00 
0E91:AF 
0E99:04 
O0EA1:10 
0EA9:E0 
0EB1:46 
0EB9:88 
0EC1:0E 
0EC9:00 
0ED1:7D 
0ED9:D4 
0EE1:0F 
0EE9:05 
0EF1:00 
0EF9:C9 
0F01:01 
0F09:0A 
OF11:D4 
0F19:00 
0F21:0F 
0F29:1E 
0F31:03 
0F39:03 
0F41:1D 
0F49:63 
0F51:8D 
0F59:A9 
0F61:8D 
0F69:20 
0F71:20 
0F79:DO 
0F81:00 
0F89:00 
0F91:AD 
0F99:20 
OFA1:18 
OFA9:A9 
0FB1:00 
OFB9:D3 
0FC1:07 
0FC9:FD 
OFD1:A5 
0FD9:FD 
OFE1:00 
OFE9:AD 
OFF1:A9 
0FF9:8C 
1001:10 
1009:BA 
1011:05 
1019:31 
1021:18 
1029:23 
1031:FF 
1039:10 
1041:54 
1049:8D 
1051:8D 
1059:20 


8D 05 
BD AB 
OE 8D 
D4 A9 
8D 04 
60 B4 
AA A9 
8D 06 
8D 01 
D4 A9 
20 1F 
E8 EQ 
OC 78 
D4 8D 
D4 AD 
82 FO 
D4 A9 
20 1F 
60 A9 
OF 3C 
8E 1C 
OF A0 
4C 2D 
4C 2B 
OF 60 
BO 03 
D9 02 
00 8D 
00 D8 
D2 FF 
CD BD 
10 A9 
04 8D 
04 AD 
01 04 
D2 FF 
A2 0C 
OB A0 
AO 00 
85 FD 
85 FE 
18 AS 
FC 69 
E9 28 
85 FE 
16 10 
06 8D 
18 10 
AC 18 
60 1F 
20 00 
8D 19 
10 A2 
FO 03 
FO 03 
AE 17 
18 AD 
cA 02 
c9 02 
FO FF 


D4 8D 
0E 8D 
00 D4 
1E 20 
DA E8 
4E 96 
44 8D 
DA A2 
D4 BD 
21 8D 
OF AI 
03 DO 
FA 46 
06 DA 
1B 0F 
16 8D 
11 8D 
OF A9 
0A 8D 
02 01 
oF 8c 
00 c8 
OF CA 
OF AE 
61 AD 
4C 54 
A9 93 
20 DO 
8D 01 
A9 00 
AD 01 
00 8D 
01 04 
00 04 
8D 16 
20 10 
AO OC 
10 20 
A9 12 
A9 04 
AQ 20 
FB 69 
00 85 
85 FD 
AD 15 
91 FD 
DS 02 
20 E? 
10 E8 
4C 45 
00 30 
10 8E 
00 AQ 
4C 27 
4C 25 
10 AC 
CA 02 
AD C9 
AQ 00 
A9 92 


1061:1E AB AE CA 02 


D4 
06 
ol 
A9 
1F 
EO 
5A 
05 
00 
E3 
04 
20 
EO 
A9 
A9 
18 
1B 
04 
10 
1B 
lE 
1D 
co 
EO 
1C 
DI 
0F 
20 
8D 
D8 


04 
15 
A9 
8D 
10 
18 
20 
1E 
85 
85 
91 
28 
FC 
AS 
10 
20 
8E 
OD 
EO 
56 
31 
17 
00 
10 
10 
18 
6D 
02 
A2 
AO 
AD 


60 
D4 
DA 
11 
0F 
04 
78 
D4 
BD 
OE 
D4 
8D 
60 
44 


69 
0F 
D4 
8D 
OF 
8D 
0F 
FF 
00 
OF 
02 
A9 
D2 
21 
A9 
D9 
c9 
10 
30 
15 
A9 
EA 
FO 
AB 
FB 
FC 
FB 
85 
38 
FE 
91 
1A 
17 


oc 
45 
OB 
10 
c8 
E8 


10 
c8 
69 
18 
10 
c9 


A9 
A2 
BD 
8D 
A9 
DO 
FA 
A9 
EO 
8D 
A9 
04 
0A 
8D 
8D 
0A 
8D 
A9 
04 
4C 
1E 


FO 
FO 
AC 
c9 
63 
FF 
DO 
90 
02 
20 


8D 
10 
93 
EA 
FF 
A2 
49 
A9 
91 
FB 
AS 
E9 
FB 
10 
10 
17 
DO 
4C 
00 
8C 
co 
EO 
19 
60 
02 
00 
18 
20 
02 


4E 
El 
43 
B7 
49 
9A 
D3 
E8 
FC 
DC 
32 
76 
BB 
36 
FF 
60 
9F 
EA 
B5 
CA 
5C 
84 
68 
45 
F2 
76 
FF 
4A 
CF 
89 
57 
71 
C7 
DI 
EE 
F7 
20 
c2 
E7 
DA 
57 
10 
54 
65 
3D 
24 
34 
FD 
50 
OC 
Al 
18 
D6 
FC 
68 
90 
37 
4D 
27 
c7 
B7 
5A 


1069:20 
1071:20 
1079:1E 
1081:0A 
1089:20 
1091:60 
1099:00 
10A1:00 
10A9:28 
10B1:01 
10B9:E9 
10C1:AA 
10C9:8D 
10D1:11 
10D9:DC 
10E1:32 
10E9:11 
10F1:CE 
10F9:10 
1101:01 
1109:A9 
1111:5C 
1119:02 
1121:AD 
1129:8D 
1131:8D 
1139:01 
1141:A9 
1149:AD 
1151:8D 
1159:E9 
1161:AA 
1169:00 
1171:49 
1179:CA 
1181:F0 
1189:FC 
1191:00 
1199:E0 
11A1:FF 
11A9:80 
11B1:0F 
11B9:FF 
11C1:00 
11C9:00 
11D1:C0 
11D9:C3 
11E1:0F 
11E9:F0 
11F1:81 
11F9:00 
1201:00 
1209:0F 
1211:E0 
1219:00 
1221:0F 
1229:F0 
1231:FF 
1239:00 
1241:00 
1249:0F 
1251:00 


CD BD AQ 18 A2 
FO FF A9 9A AQ 
AB A9 00 AE 


90 
CD 
9E 
9F 
42 
EE 
FO 
01 
A9 
68 
A9 
cC9 
c9 
AD 
D7 
A9 
0A 
17 
03 
c9 
D7 
D7 
68 
0A 
30 
D7 
D8 
01 
A9 
53 
60 
60 
00 
7F 
F8 
00 
FE 
FO 
80 
FE 
00 
FF 
07 
FO 
c3 
0F 
FO 
00 
00 
FF 
0F 
00 
07 
0F 
FO 
00 
00 
FF 
0F 


05 
BD 
53 
4C 
AD 
69 
ol 
0A 
2F 
ll 
00 
TE 
6F 
D7 
02 
04 
cA 
9D 
60 
04 
02 
02 
11 
0A 
9D 
02 
02 
0A 
FF 
4D 
48 
EA 
3F 
00 
3E 
EF 
00 
1F 
FF 
00 
00 
00 
81 
OF 
FO 
81 
07 
00 
03 
co 
01 
0F 
co 
80 
07 
00 
03 
80 
00 


A2 
A9 
43 
49 
68 
1 
60 
0A 
9D 
8D 
8D 
FO 
FO 
02 
AD 
8D 
0A 
3C 
20 
FO 
4C 
4C 
AD 
0A 
SC 
8D 
60 
0A 
9D 
44 
60 
60 
FC 
F8 
00 
EO 
FF 
80 
FF 
00 
3C 
01 
EO 
FF 
0F 
FO 
00 
00 
FF 
0F 
co 
00 
OF 
FO 
FF 
00 
FF 
OF 
00 


09 
13 
4F 
56 
11 
AD 
AD 
0A 
SC 
69 
D8 
09 
49 
c9 
D7 
D7 
18 
03 
55 
09 
FF 
FF 
D7 
18 
03 
DB 
AD 
0A 
3C 
54 
6B 
09 
00 
1F 
FF 
00 
FF 
FO 
80 
00 
00 
FF 
07 
FO 
81 
0F 
EO 
00 
00 
87 
0F 
00 
00 
0F 
EO 
00 
80 
80 
0F 


CB 
8D 
20 
52 
45 
C9 
69 
D? 
18 
03 
1 
02 
c9 
60 
ol 
02 
02 
69 
A9 
11 
EE 
10 
10 
02 
69 
4C 
02 
D7 
18 
03 
60 
60 
60 
TE 
00 
F8 
FE 
00 
0F 
FF 
00 
00 
80 
81 
0F 
FO 
81 
02 
00 
07 
EO 
00 
OF 
EO 
cl 
03 
00 
07 
00 
00 


18 
10 
02 
cB 
D2 
45 
53 
01 
li 
02 
69 
A9 
4C 
AD 
?D 
20 
FO 
4C 
38 
07 
2F 
AD 
D7 
A9 
A9 
38 
07 
54 
A9 
02 
69 
60 
53 
89 
11 
FE 
F8 
00 
F8 
F8 
80 
FF 
00 
7E 
03 
EO 
FE 
0F 
FO 
00 
FF 
FF 
0F 
00 
03 
0F 
FO 
FF 
FF 
FF 
0F 
00 





18 62 
20 10 
EO 52 
02 AD 
FF 3E 
3A BO 
3A 68 
DO 11 
C9 D6 
38 BD 
07 7B 
00 A3 
49 37 
00 E7 
FO 15 
55 EB 
09 56 
FF E9 
E9 07 


9D F7 
D7 52 
02 F3 
01 A9 
01 Al 
E9 52 


11 CO 
01 8C 
38 BF 
07 1D 
00 CB 
60 79 
60 AF 
OF 77 
00 CF 
1F A3 
FF 9D 
00 2C 
3F B4 
FO E9 
00 7F 
00 9B 
00 A4 
C3'C7 
OF 63 
FO BO 
81 FA 
OF F6 
40 41 
00 1C 
80 22 
03 9E 
OF 1D 
80 El 
00 39 
OF 19 
80 06 
00 5D 
CO A6 
00 18 
OF CO 


11 


1259:FC 00 OF FE 00 0F FC 00 04 1449:AD 64 15 2A 8D 64 15 AE 7D 1639:20 BS 09 A9 00 8D DB 02 8E 
1261:0F 00 00 0F 00 00 0F 00 1C 1451:65 15 DE 02 DO BD 02 DO BF 1641:20 81 17 8D DF 02 20 38 19 
1269:00 OF 00 00 OF 80 00 0F DA 1459:AE 66 15 DD 53 15 FO OB CE 1649:0D AD El 02 C9 01 FO 0F 07 
1271:FF 80 07 FF CO 03 FF 80 29 1461:A9 01 8D 60 15 20 27 15 E2 1651:A9 00 8D DF 02 20 38 0D 10 
1279:00 00 00 00 00 00 FF 00 9D 1469:4C 50 14 EE 65 15 EE 65 FF 1659:AD El 02 C9 01 DO 10 A9 C6 
1281:00 00 03 FE 00 07 FF 80 92 1471:15 EE 66 15 AD 66 15 C9 F8 1661:04 8D DS 02 20 E7 OD A9 32 
1289:0F 87 CO OF 03 CO OF 03 5C 1479:06 FO 03 4C 26 14 A9 2A 05 1669:14 8D C8 02 20 42 10 AD 14 
1291:C0 OF 87 CO OF FF 80 0F SF 1481:8D F8 07 A9 95 8D O1 DO DF 1671:E4 02 CD ES 17 DO 03 4C F6 
1299:FF 00 OF FO 00 OF F8 00 DC 1489:A9 00 8D 00 DO A9 FF 8D F2 1679:92 17 20 81 17 C9 00 8D 3E 
12A1:0F FC 00 OF BE 00 OF 9F 31 1491:15 DO A9 04 8D DS 02 20 DS 1681:DD 02 AD E4 02 8D EQ 17 40 
12A9:00 OF 8F 80 OF 87 CO OF B2 1499:E7 OD A2 00 EE 00 DO A9 10 1689:20 41 OC A9 00 8D DD 02 26 
12B1:83 CO 07 83 CO 03 01 80 75 14A1:0A 8D 60 15 20 27 15 AD 05 1691:AD E4 02 CD EQ 17 FO 08 38 
12B9:00 00 00 00 00 00 FF A9 87 14A9:00 DO DD 53 15 FO 03 4C BS 1699:A9 05 8D C8 02 20 42 10 3F 
12C1:05 8D 20 DO A9 06 8D 21 7E 14B1:9D 14 BD 59 15 9D F9 07 15 16A1:AD DC 02 C9 01 FO 29 AD 84 
12C9:DO A9 00 8D 7F 13 A9 ED 23 14B9:E8 EO 06 FO 03 4C 9D 14 F6 16A9:DE 02 C9 01 FO 27 AD EQ 6F 
12D1:A0 12 20 1E AB A9 EE AO 33 14C1:A9 0A 8D 60 15 20 27 15 85 16B1:02 C9 01 FO 1B AD 8D 02 2D 
12D9:12 20 1E AB EE 7F 13 AD D6 14C9:EE 00 DO AD 00 DO C9 00 35 16B9:29 01 C9 01 DO 03 4C B6 E5 
12E1:7F 13 C9 03 DO EF A9 13 A0 14D1:FO 07 C9 FF DO EA 20 1E FD 16C1:16 AS 91 C9 7F DO 03 4C C2 
12E9:20 D2 FF 60 93 11 11 12 ED 14D9:15 AO C8 A9 O1 8D 10 DO 97 16C9:CE 16 4C E9 15 4C 6E 15 D6 
12F1:9C 20 20 20 20 20 20 20 54 14E1:20 27 15 EE 00 DO AD 00 14 16D1:A9 03 4C D8 16 A9 05 8D 99 
12F9:20 20 20 20 20 20 20 20 1E 14E9:DO C9 78 FO 03 4C El 14 2C 16D9:D5 02 20 E7 0D A9 C8 20 B4 
1301:20 20 20 20 20 20 20 20 27 14F1:A2 01 EO 07 FO 07 DE 27 CO 16E1:14 17 20 46 09 CE CB 02 63 
1309:20 20 20 20 20 20 20 20 2F 14F9:DO E8 4C F3 14 A9 14 8D 8A 16E9:AD CB 02 C9 00 FO 03 4C D2 
1311:DF OD 12 20 20 20 20 20 90 1501:60 15 20 27 15 88 CO 00 63 16F1:A4 15 A9 E7 AQ 17 20 1E 29 
1319:20 20 20 20 20 20 20 20 3F 1509:FO 03 4C F1 14 A9 FF 8D E9 16F9:AB A9 FF 20 14 17 4C 6E 6C 
1321:20 20 20 20 20 20 20 20 47 1511:60 15 20 27 15 A9 00 8D 04 1701:15 78 A9 00 8D 1A DO A9 2D 
1329:20 20 20 20 20 20 20 20 4F 1519:15 DO 4C 9B 13 A9 05 8D 1C 1709:31 8D 14 03 A9 EA 8D 15 0F 
1331:20 20 20 DF OD 12 05 B4 EQ 1521:DS 02 20 E7 OD 60 8D 61 9F 1711:03 58 60 8D DC 17 8C DB F3 
1339:B4 B4 B4 B4 B4 B4 B4 B4 5F 1529:15 8C 63 15 8E 62 15 AE 95 1719:17 8E DA 17 A8 AQ FF 8D BC 
1341:B4 B4 B4 B4 B4 B4 B4 B4 67 1531:60 15 AO 00 AS 91 C9 7F 6B 1721:DD 17 8D DE 17 8D DF 17 69 
1349:B4 B4 B4 B4 B4 B4 B4 B4 6F 1539:DO 03 68 68 60 C8 CO FF C7 1729:CE DD 17 AD DD 17 C9 00 D2 
1351:B4 B4 B4 B4 B4 B4 B4 AA 6D 1541:DO FB CA EQ 00 DO EB AD 03 1731:DO F6 CE DE 17 AD DE 17 91 
1359:0D 12 05 B4 B4 B4 B4 B4 0D 1549:61 15 AE 62 15 AC 63 15 9C 1739:C9 00 DO F6 CE DEF 17 AD A7 
1361:B4 B4 B4 B4 B4 B4 B4 B4 87 1551:60 60 32 4B 64 7D 96 AF B4 1741:DF 17 C9 00 DO F6 88 CO 92 
1369:B4 B4 B4 B4 B4 B4 B4 B4 8F 1559:C0 C1.C2:C2.C3 C4 C5.01 96 1749:00 DO D2 AD DC 17 AC DB 59 
1371:B4 B4 B4 B4 B4 B4 B4 B4 97 1561:01 01 81 OB 02 01 AS 20 AC 1751:17 AE DA 17 60 AC D7 02 EA 
1379:B4 B4 B4 AA OD 00 03 62 39 1569:81 13 20 2E 08 A9 00 8D 74 1759:88 98 0A 0A 0A A2 00 8E 3D 
1381:A0 00 B9 80 11 99 00 30 56 1571:15 DO A9 00 8D C9 02 8D B4 1761:El 17 A8 B9 3C 03 C9 00 78 
1389:C8 CO C1 DO FS AQ 00 BI 75 1579:CA 02 A9 04 8D CB 02 A9 48 1769:DO 03 EE El 17 C8 E8 EO 4B 
1391:40 12 99 C0 30 C8 CO 81 43 1581:0A 8D ES 17 A9 05 8D E6 AS 1771:03 DO FO AD El 17 C9 00 4D 
1399:DO F5 A9 93 20 D2 FF A2 03 1589:17 A9 00 8D E4 02 20 46 38 1779:F0O 05 A9 02 8DEL 17 60 39 
13A1:00 A9 AO 9D 58 06 A9 01 4F 1591:09 A9 FF 8D 43 03 A9 O1 FD 1781:20 97 EO AS 8C C9 00 FO 98 
13A9:9D 58 DA E8 EO 50 DO F1 7A 1599:8D D9 02 20 45 0F A9 96 93 1789:05 C9 05 BO O1 60 A9 00 35 
13B1:A9 FF 8D 1C DO A9 00 8D DA 15A1:20 14 17 20 46 09 A9 01 70 1791:60 20 46 09 A9 FF 8D 43 FC 
13B9:2E DO A9 03 8D 27 DO A9 E4 15A9:8D D7 02 A9 17 8D 43 03 E3 1799:03 AD ES 17 C9 32 FO 2E 0A 
13C1:0A 8D 25 DO A9 00 8D 26 90 15B1:20 CO 12 A9 0A 20 14 17 09 17A1:18 69 14 8D ES 17 EE D9 DA 
13C9:DO A9 00 8D 20 DO A9 06 39 15B9:A9 02 8D E3 17 8D E4 17 F8 17A9:02 20 45 0F A9 96 20 14 76 
13D1:8D 21 DO 8D 00 DO A9 82 13 15C1:A9 00 8D C8 02 20 42 10 24 17B1:17 A9 00 8D E4 02 20 46 64 
13D9:A2 01 EO OD FO 11 CA A9 89 15C9:A9 32 20 14 17 A9 04 8D 8F 17B9:09 AD D9 02 C9 05 DO 03 3A 
13E1:E7 9D 02 DO E8 A9 82 9D 41 15D1:D5 02 20 E7 OD A9 00 8D 86 17C1:EE CB 02 A9 64 8D C8 02 22 
13E9:02 DO E8 E8 4C DB 13 A9 92 15D9:DB 02 20 A3 10 A9 00 8D 65 17C9:20 42 10 4C A4 15 A9 0A 36 
13F1:FF 8D 0E DO A9 82 8D OF CB 15E1:DE 02 8D EO 02 8D DC 02 BD 17D1:8D E5 17 CE E6 17 4C A7 E3 
13F9:DO A2 00 8E 10 DO 8E 00 FA 15E9:CE E3 17 AD E3 17 C9 00 41 17D9:17 00 00 00 00 00 00 00 93 
1401:DO A9 2D EO 07 FO OC 9D 61 15F1:DO 1D A9 02 8D E3 17 AD F8 17E1:00 00 00 00 00 00 90 13 44 
1409:F9 07 E8 A9 09 9D 27 DO 85 15F9:E6 17 C9 01 FO 09 AD E6 94 LES: LISI LITRI LAICI 
1411:4C 02 14 A9 80 8D 15 DO 32 1601:17 20 14 17 4C 10 16 A9 2D AFFLSLI LI AL ATI ID ADD 74 
1419:A9 02 8D 64 15 A2 00 8E 50 1609:02 8D E6 17 20 14 17 CE 36 17F9:1D 1D 1D 1D 1D 1D 1D 1D 28 
1421:66 15 8E 65 15 A9 30 8D 27 1611:E4 17 AD E4 17 C9 00 DO 2A 1801:1D 47 41 4D 45 20 4F 56 2E 
1429:FF 07 A9 C8 8D 60 15 20 OD 1619:08 A9 03 8D E4 17 20 A3 54 1809:45 52 00 61 FF 00 FF A9 30 
1431:27 15 A9 2F 8D FF 07 A9 7E 1621:10 AD DB 02 C9 00 FO 10 9C 1811:01 AO FA 88 99 00 D8 99 E9 
1439:02 8D DS 02 20 E7 OD AD 09 1629:20 56 17 AD El 17 C9 00 B7 1819:FA D8 99 F4 D9 99 EE DA 6D 
1441:15 DO OD 64 15 8D 15 DO E9 1631:FO0 06 8D DS 02 20 E7 OD D3 1821:DO F1 60 00 00 00 00 00 42 


12 si 





COMPATTATORE 





| programmi in BASIC sono un grosso compro- 
messo: idealmente dovrebbero essere veloci, i 
più corti possibile e chiari a chiunque voglia 
metterci lemani per modificarli nei punti più op- 
portuni. Naturalmente tutto ciò risulta inconci- 
liabile, ad esempio gli statement REM, che 
donano al programma una maggior chiarezza, 
non sono, in effetti, parte attiva del programma 
stesso. Il Compattatore qui proposto può essere 
una delle soluzioni poiché mette a disposizione 
quattro opzioni in grado di ridurre il programma 
allo stretto necessario. La prima funzione elimi- 
na tutti gli spazi superflui salvaguardando quelli 
racchiusi tra gli apici e quelli facenti parte degli 
statement REM. Una seconda funzione del pro- 
gramma è in grado di eliminare tutti gli state- 
ment REM, siano essi a capo linea che all'inter- 
no della linea dopo i due punti. Se lo statement 


Non diamo il listato del carica- 


tore BASIC in quanto elementare 
e facilmente listabile diretta- 


mente su video. 


COMPATTATORE ML 


C000: 
C008: 
COl0: 
018: 
020: 
028: 
030: 
038:2 
040:0 
048: 
050: 
058:0 
060: 
068: 
070: 
078: 
CO80: 
C088: 
C090: 
C098: 


2D CA 
86 8A 
01 42 
4F 4D 
00 0D 02 43 4F 50 
52 49 47 48 54 20 31 
38 38 20 20 46 49 4E 
46 41 48 45 59 00 OD 
04 50 52 4F 47 52 41 
) 20 20 53 49 SA 45 00 EF 
09 05 42 59 54 45 53 5 

OD 1E 05 4C 49 4E 45 9A 
00 OD 05 07 46 31 20 S1 
20 53 50 41 43 45 20 B9 
45 4D 4F 56 41 4C 00 5B 
05 09 46 32 20 2D 20 D3 
45 4D 20 52 45 4D 4F B9 
41 4C 00 OD 05 OB 46 E7 
20 2D 20 52 45 44 55 EO 
44 41 4E 54 20 43 4F 58 
C0A0:44 45 20 52 45 4D 4F 56 13 
COAB: 4C 00 0D 05 OD 46 34 CB 
C0B0:20 2D 20 43 4F 4D 42 49 43 


51 CB 60 85 
8B 88 8C OD 
53 49 43 20 


5 DIN 
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ODG AIA. 


IN 


ib WuiunoIinnun 
(wr) 


bob 
HP bpaUMUWAN 


C0B8:4E 45 20 4C 49 4E 45 53 DC 
COC0:20 2D 20 4C 4F dE 47 00 A8 


REM è, però, riferito ad un GOTO o a un GOSUB 
presente in un'altra linea, non viene ovviamen- 
te eliminato. La terza funzione messa a disposi- 
zione del programma si prende cura di elimina- 
re i rami secchi. Se nel programma in esame 
esistono linee nascoste o subroutine che non 
vengono mai toccate dai vari cicli, Compattatore 
le scopre e le elimina. La quarta ed ultima pos- 
sibilità che Compattatore possiede è quella di 
porre, per quanto sia possibile, più statement su 
di unastessa linea. Poichè il BASIC prevede che 
su di una stessa linea possono trovar posto fino 
a 255 caratteri, ecco la possibilità di eliminare 
alcuni numeri di linea per porne più di una sotto 
uno stesso numero. Compattatore offre la pos- 
sibilità di compattare più linee fino a 255 carat- 
teri (long line compaction), oppure fino a 80 
caratteri (short line compaction). In entrambi i 


C0C8:0D 05 0F 46 35 20 2D 20 FC 
C0D0:43 4F 4D 42 49 4E 45 20 C3 
C0D8:4C 49 4E 45 53 20 2D 20 86 
C0E0:53 48 4F 52 54 00 OD 05 EE 
CO0E8:11 46 36 20 2D 20 54 4F 2F 
COF0:54 41 4C 20 43 4F 4D 50 BA 
C0OF8:41 43 54 49 4F 4E 20 2D 2C 
C100:20 4C 4F 4E 47 00 0D 05 CE 
C108:13 46 37 20 2D 20 54 4F 71 
C110:54 41 4C 20 43 4F 4D 50 DB 
C118:41 43 54 49 4F 4E 20 2D 4D 
C120:20 53 48 4F 52 54 00 OD 77 
C128:05 15 46 38 20 2D 20 45 FA 
C130:58 49 54 20 50 52 4F 47 70 
C138:52 41 4D 00 FF 52 20 2D 4D 
C120:20 53 48 4F 52 54 00 OD 77 
C128:05 15 46 38 20 2D 20 45 FA 
C130:58 49 54 20 50 52 4F 47 70 
C138:52 41 4D 00 FF 52 20 2D 4D 
C120:20 53 48 4F 52 54 00 OD 77 
C128:05 15 46 38 20 2D 20 45 FA 
C130:58 49 54 20 50 52 4F 47 70 
C138:52 41 4D 00 FF 52 20 2D 4D 
C120:20 53 48 4F 52 54 00 OD 77 
C128:05 15 46 38 20 2D 20 45 FA 
C130:58 49 54 20 50 52 4F 47 70 
C138:52 41 4D 00 FF 52 20 2D 4D 
C120:20 53 48 4F 52 54 00 OD 77 
C128:05 15 46 38 20 2D 20 45 FA 
C130:58 49 54 20 50 52 4F 47 70 
C138:52 41 4D 00 FF 52 20 2D 4D 
C120:20 53 48 4F 52 54 00 OD 77 


casi, lo scopo è quello di far rientrare quante più 
linee possibili inunasola, inquanto ogni numero 
di linea eliminato fa risparmiare quattro byte. 
Il menu principale di Compattatore offre le 
seguenti opzioni: 1 - remove spaces; 2- remove 
REM; 3 - remove redundant lines; 4 - short line 
compaction; 5 - long line compaction; 6 - total 
compaction (short); 7- total compaction (long); 
8 - return to BASIC 

Compattatore lavora in pagina zero e non do- 
vrebbero esserci problemi, tuttavia se il pro- 
gramma appena compattato non dovesse av- 
viarsi, salvatelo, spegnete e riaccendete il 
computer e ricaricatelo. 

Se optate per la compattazione in linee, tenete 
presente che la rimozione dei rami secchi va 
fatta a priori poiché, una volta compattate le 
linee, il programma non sarà più in grado di 
cercarli. Datener conto, infine, che Compattato- 
re non può operare su programmi più lunghi di 
1024 linee, ma questa non dovrebbe essere una 
restrizione troppo... restrittiva. 

PER CARICARE Battere LOAD"COMPAT- 
TATORE",8 quindi RETURN. Attendere il REA- 
DY col cursore lampeggiante e quindi battere 


RUN seguito da RETURN. 

C128:05 15 46 38 20 2D 20 45 FA 
C130:58 49 54 20 50 52 4F 47 70 
C138:52 41 4D 00 FF 52 20 2D 4D 
C120:20 53 48 4F 52 54 00 OD 77 
C128:05 15 46 38 20 2D 20 45 FA 
C130:58 49 54 20 50 52 4F 47 70 
C138:52 41 4D 00 FF 52 20 2D 4D 
C120:20 53 48 4F 52 54 00 OD 77 
C128:05 15 46 38 20 2D 20 45 FA 
C130:58 49 54 20 50 52 4F 47 70 
C138:52 41 4D 00 FF 52 20 2D 4D 
C120:20 53 48 4F 52 54 00 OD 77 
C128:05 15 46 38 20 2D 20 45 FA 
C130:58 49 54 20 50 52 4F 47 70 
C138:52 41 4D 00 FF 52 20 8C D9 
C240:C2 20 47 C2 90 FO 60 C8 16 
C248:B1l FB 91 FD C8 C9 00 DO F5 
C250:04 B1l FB FO 2E BI FB 91 94 
C258:FD C8 B1 FB 91 FD 85 C4 59 
C260:C8 B1l FB 85 C3 91 FD 20 0F 
C268:C9 CB 18 A5 FB 69 05 85 38 
C270:FB 90 02 E6 FC 18 AS FD 58 
C278:69 05 85 FD 90 0D E6 FE 0A 
C280:18 90 08 91 FD C8 BI FB C2 
C288:91 FD 38 60 AO 00 BI FB C7 
C290:91 FD FO 34 C9 20 FO 1E 8E 
C298:C9 BF FO 04 C9 83 DO 07 4A 
C2A0:A9 01 8D A8 02 DO 19 C9 C6 
C2A8:22 DO 15 AD A7 02 49 01 C9 
C2B0:8D A7 02 18 90 0A AD A8 59 


C2B8:02 DO 05 AD A7 02 FO 03 19 
C2C0:20 DI C2 20 C9 C2 90 C6 66 


corn 


Una volta caricato e lanciato, il programma vi 
chiederà subito quale livello di difficoltà deside- 
rate: se è la prima volta che vi cimentate con 
questo rompicapo, vi consigliamo il livello 1. La 
schermata che vi si presenta riporta una rampa 
di 10 gradini che il nostro Cliffy dovrà scalare 
per intero in base alle risposte giuste e tempe- 
stive che riuscirete a dare. 

Ogni due risposte esatte Cliffy salirà di un 
gradino e, se siete bravi e pronti, riuscirete a 
farlo precipitare dalla vetta. | calcoli si presenta- 
no nel riquadro in basso a sinistra e voi dovrete 
dare la risposta entro un certo tempo prima che 
appaia la scritta Tempo scaduto e, in questo 
caso, la risposta, anche se corretta, non verrà 
più accettata. 

Con la difficoltà più bassa sia il tempo che i 
numeri da calcolare sono facilmente sopporta- 
bili, così non è al massimo livello di difficoltà: 
provare per credere! 

PER CARICARE Battere LOAD'ALGEBUR",8 
quindi dare RUN. 


LISTATO DI ALGEBUR 
sl INPUT"{CLR}{5 CUR.GIU} 
DIFFICOLTA' (1-3)";R$ 
2 G=10+(VAL(R$)-1)*10 
3 IFVAL (R$) <1THENPRINT 


"VALORE TROPPO BASSO: 
RIPROVA: GOTO7" 

5 IFVAL (R$) >3THENPRINT 
"VALORE TROPPO ALTO: 
RIPROVA{3 SPC}":GOTO7 

6 GOTO9 


fi; FORR=1T08:GOSUB2000: 
NEXTR: RUN 
9 DIMMN$ (22) 


10 MN$ (1)=" {CUR.SIN} {CBM 
@} {SH Q} {CBM @} {CUR.GIU)} 
{5 CUR.SIN}{2 SPC} {SH M} 
{RVS ON} {RVS OFF} {SH N} 
{CUR. 

GIU}{4 CUR.SIN} {2 CBM M}" 

li MNS$ (2)="{CBM @} {SH Q} {SH 
N} {CUR.GIU}{3 CUR.SIN}{SH 
M} {RVS ON} {RVS OFF} {SH N} 
{CBM G} {CUR.GIU} {4 CUR. 
SIN} {CBM M}" 

12 MN$ (3)="{CUR. SU} {CUR.DES} 
{CBM @ } {SH Q} {CUR.GIU}{3 
CUR.SIN} {SH M}{RVS ON} {RVS 
OFF } {SH M} {CUR.GIU}{4 CUR. 


14 





13 


14 


15 


16 


17 


19 


20 


21 


22 


SIN} {2 SPC}>{SHP}{CUR. 
GIU} {4 CUR.SIN}" 

MNS$ (4)="{3 SPC} {CUR.GIU}{3 
CUR.SIN} {CBM @} {SH Q} {SH 
N} {CUR.GIU} {4 CUR.SIN}{SH 
M} {RVS ON} {RVS OFF} {SH N} 
{SH M}{CUR.GIU}{4 CUR.SIN} 
{SH N}{4 SPC} {CUR.GIU}{5 
CUR.SIN}{CBM T}" 

MN$ (5)="{3 SPC} {CUR.GIU}{3 
CUR. SIN} {CBM @ } {SH Q} {SH 
@} {CUR.GIU} {4 CUR.SIN}{CBM 
G} {RVS ON} {RVS OFF} {CBM @} 
{CUR.GIU}{4 CUR.SIN}{SH N} 
{2 SPC} {SH M}" 

MN$ (6)="{3 SPC} {CUR.GIU}{3 
CUR. SIN} {SH M} {SH Q}{CUR. 
GIU} {3 CUR.SIN}{RVS ON} 
{RVS OFF} {SH M} {[CUR.GIU}{4 
CUR.SIN} {SE M} {CBMG} {SH 
P}{CUR.GIU} {5 CUR.SIN}{5 
SPC}" 

MN$ (7)="{3 SPC} {CUR.GIU}{3 
CUR.SIN} {CBM M} {SH Q} {CUR. 
GIU}{3 CUR.SIN}{RVS ON} 
{RVS OFF} {SH M} {CUR.GIU}{4 
CUR. SIN} {CBM M} {SH N} {SH 
M} {CUR.GIU} {CUR.SIN} {CBM 
Ti” 

MN$ (8)="{3 SPC} {CUR.GIU}{3 
CUR.SIN} {SH Q}'{CUR.GIU}{5 
CUR.SIN}{3 SPC} {RVS ON} 
{RVS OFF} {SH M} {CUR.GIU}{4 
CUR.SIN}{2 CBM T} {SH @} 
{CUR.GIU} {2 CUR.SIN}" 

MN$ (9) ="{3 SPC} {CUR.GIU} {3 
CUR.SIN}{2 SPC}{SHQ}' 
{CUR.GIU}{6 CUR.SIN}{2 
SPC} {SH L} {RVS ON} (SH \} 
{RVS OFF} {SH M} {CUR.GIU}{3 
CUR.SIN}{CBM @}{SHN}" 
MNS (10)="{4 SPC} {CUR.GIU} 
{5 CUR. SIN} {SH M} {CBM @} 
{SH N}{CUR.GIU}{4 CUR.SIN} 
{RVS ON} {RVS OFF} {SE Q} 
{CUR.GIU}{4 CUR.SIN}{SK M} 
{SH N}{SE L}" 

MN$ (11)="{CUR.SIN}{4 SPC} 
{CUR.GIU}{5 CUR.SIN}{SH M} 
{CBM @} {CBM @} {CUR.GIU}{5 
CUR.SIN} {SH M} {CBM @} {RVS 
ON} {RVS OFF} {SH 0} {SH M} 
{CUR.GIU}{5 CUR.SIN}{3 
SPC} {SH M}" 

MN$ (12)="{CUR.SIN}{4 SPC} 
{CUR.GIU} {3 CUR.SIN}{CBM 
M} {SH M} {2 SPC} {2 CUR.SIN} 
{CUR.GIU} {3 CUR.SIN}{SH M} 
{RVS ON} {CBM *} {RVS OFF} 
{CBM @} {SH N} {CUR.GIU}{3 
CUR. SIN} {CBM M} {SH Q} {CUR. 
GIU}{2 CUR.SIN}'" 

MN$ (13)="{CUR.SIN}{3 SPC} 
{CUR.GIU}{3 CUR.SIN} {CBM 
G} {CBM M} {2 SPC} {2 CUR. 


23 


24 


25 


26 


27 


28 


29 





SIN} {CUR.GIU}{3 CUR.SIN} 
{SH M} {SH N} {CUR.SIN}{CUR. 
GIU}{3 CUR.SIN}{RVS ON} 
{RVS OFF} {2 SPC} {CUR.GIU} 
{4 CUR.SIN} {SH N}{SH Q}{SH 
M} {CUR.GIU}{2 CUR.SIN}" 
MN$ (14)="{CUR.SIN}{4 SPC} 
{CUR.GIU}{4 CUR.SIN} {CBM 
@)}, {CUR.GIU}{4 CUR.SIN}{SH 
M} {CBM M} {CUR.GIU}{3 CUR. 
SIN} {2 SPC} {RVS ON} {RVS 
OFF} {CUR. SIN} {CUR.GIU}{2 
CUR. SIN} {SH N} {SH Q} {CBM 
G} {CUR.GIU}{3 CUR.SIN)} 
{CBM T}" 

MN$ (15)="{CUR.SIN}{4 SPC} 
{CUR.GIU}{4 CUR.SIN} {CBM 
@}, {CUR.GIU} {4 CUR.SIN} {SH 
M} {CBM M} {CUR.GIU} {3 CUR. 
SIN} {2 SPC} {RVS ON} {RVS 
OFF} {CUR.SIN}{CUR.GIU}{2 
CUR.SIN} {SH N} {SH 0} {CBM 
G}{CUR.GIU}{3 CUR. SIN} 
{CBM T}" 

MN$ (16)="{CUR.SIN}{4 SPC} 
{CUR.GIU}{4 CUR.SIN} {CBM 
@}, {CUR.GIU}{4 CUR.SIN} {SH 
M} {CBM M} {CUR.GIU} {3 CUR. 
SIN} {2 SPC} {RVS ON} {RVS 
OFF}{CUR.SIN} {CUR.GIU}{2 
CUR.SIN} {SH N} {SH Q} {CBM 
G}{CUR.GIU}{3 CUR.SIN} 
{CBM T}" 

MN$ (17)=" {CUR.SIN}{4 SPC} 
{CUR.GIU} {4 CUR.SIN} {CBM 
@}, {CUR.GIU} {4 CUR. SIN} {SH 
M} {CBM M} {CUR.GIU}{3 CUR. 
SIN} {2 SPC} {RVS ON} {RVS 
OFF} {CUR. SIN} {CUR.GIU} {2 
CUR.SIN} {SH N}{SH Q} {CBM 
G}{CUR.GIU}{3 CUR.SIN} 
{CBM T}" 

MNS (18)="{CUR. SIN} {4 SPC} 
{CUR.GIU} {4 CUR. SIN} {CBM 
@}, {CUR.GIU}{4 CUR.SIN} {SH 
M} {CBM M} {CUR.GIU}{3 CUR. 
SIN} {2 SPC} {RVS ON} {RVS 
OFF}{CUR.SIN}{CUR.GIU}{2 
CUR.SIN} {SH N} {SH Q} {CBM 
G} {CUR.GIU}{3 CUR.SIN} {CBM 
T}" 

MN$ (19)="{CUR. SIN} {4 SPC} 
{CUR.GIU}{4 CUR.SIN} {CBM 
@}, {CUR.GIU} {4 CUR. SIN} {SH 
M} {CBM M} {CUR.GIU} {3 CUR. 
SIN} {2 SPC} {RVS ON} {RVS 
OFF} {CUR.SIN}{CUR.GIU}{2 
CUR. SIN} {SH N} {SH Q} {CBM 
G}" 

MN$ (20)="{CUR.SIN}{3 SPC} 
{CUR.GIU}{3 CUR.SIN} {CBM 
@} {SH -}{CUR.GIU}{3 CUR. 
SIN} {SH M} {CBM I} {CBM X} 
{CUR.GIU}{3 CUR.SIN} {CBM 
@} {RVS ON} {CBM \}{RVS OFF} 


SE 


30 


31 


100 
110 
120 
130 


140 
150 


160 
170 


180 


190 


220 


230 


231 


232 


233 


234 


235 


240 


260 


270 
271 


274 
275 
280 


285 
290 
300 


310 
320 


| sa 


{SH @}" 

MN$ (21)="{CUR.SU}{CUR. 
SIN} {3 SPC} {CUR.GIU}{3 
CUR.SIN}{2 SPC} {CBM @} 
{CUR.GIU}{3 CUR.SIN}{SHN} 
{CBM G} {CUR.GIU}{3 CUR. 
SIN) {SH M} {RVS ON} {RVS 
OFF} {SH N}" 

MN$ (22)="{CUR.SIN}{CUR. 
SU}{3 SPC} {CUR.GIU}{3 CUR. 
SIN}, {CBM @} {CUR.GIU}{3 
CUR.SIN} {SH M} {SHN}" 
PRINT"{CLR}{5 CUR.GIU}" 
FORT=10TOOSTEP-1 
PRINTSPC(T*2+7); 
PRINT"{RVS ON} {SH \}"T" 
{CUR.SIN}{RVS OFF}"; 
FORR=1T0(10-T) 
PRINT"{RVS ON} {2 SPC} {RVS 
OFF}";:NEXTR:PRINT 

NEXTT 
FORT=1T020:PRINT"{CBM+}"; 
:NEXTT 
FORT=1024T01063:POKET, 102 
:POKET+960, 102: NEXTT 
FORT=1024T01984STEP40: 
POKET, 102:POKET+39, 102 
sNEXTT 
FORT=1T06:PRINT"{RVS ON} 
{11 SPC} {RVS OFF} {CUR.GIU} 
{12 CUR.SIN}{CBM+}";: 
NEXTT 
PRINT"{RVS ON} {19 SPC} {RVS 
OFF} {HOME} " 

PRINT"{13 CUR.GIU}{23 CUR. 
DES} {RVS ON}CLIFF {RVS 
OFF}"; 

PRINT"{2 CUR.GIU}{4 CUR. 
SIN} {RVS ON}LO{RVS OFF}"; 
PRINT"{2 CUR.GIU}{5 CUR. 
SIN} {RVS ON} SCALATORE {RVS 
OFF}"; 

PRINT"{CUR.GIU}{5 CUR.SIN} 
{RVS ON} {3 CBM @} {CUR.GIU} 
{3 CUR.SIN}IH IH! {CUR.GIU} 
{3 CUR.SIN}{3 CBM T}" 
PRINT" {HOME}{6 CUR.GIU}{31 
CUR.DES}{3 SPC}" 

D$=" {HOME} {19 CUR.GIU}{2 
CUR.DES}" 

DEFFNR(X)=INT (RND(1)*2*x- 
X) :D=14:S=5:GOSUB1050 
FORH=1T020 
IFP=1THENP=0:F=N: 
GOSUB802:GOTO275 
GOSUB800 
IFQ=1THEN285 
PRINTD$;" ("N$")+("Y$")="; 
:G0T0290 

PRINTD$;" ("N$")-("Y$")="; 
TI$="000000":B$="":E=0 
GETA$: IFA$=""ANDVAL(TI$) 
<STHEN300 
IFVAL(TI$)>4THEN390 

IFASC (AS) =13THEN340 


=Y:Y=F: 


321 


330 


340 


350 


360 


370 


371 
380 
390 


800 
802 
803 
810 


820 


830 


840 


850 

1000 
1010 
1020 
1030 


1040 


1045 
1050 


1060 
1100 
1200 
1210 
1220 


1230 
1240 
1250 


1251 


IFASC (A$) =20THENBS$=RIGHT$ 
(B$, LEN (B$)-1) :PRINT"{CUR. 
SIN} {CUR.SIN}";:GOT0300 
B$=B$+A$:PRINTA$;: 

GOTO300 

IFVAL (B$)=ZTHENPRINT: 
PRINT"{2 CUR.DES}GIUSTO{2 
SPC}!":E=1:GOTO360 
PRINT:PRINT"{2 CUR.DES} 
SBAGLIATO" :P=1 
FORT=1T0300:NEXTT:PRINT"{3 
CUR. SU} {2 CUR.DES}{15 
SPC}" 

PRINT"{2 CUR.DES}{15 SPC}" 
:PRINT"{2 CUR.DES}{10 
SPC}" 

IFE=1THENGOSUB1000 
NEXTH:GOTO2010 
PRINT:PRINT"{2 CUR.DES)} 
SCADUTO!" :GOTO360 

N=FNR (G) :Y=FNR (G) :Q=FNR (2) 
IFQ=1THENZ=N-Y:GOTO810 
Z=N+Y 

IFN<OTHENN$=STR$ (N): 


GOTO830 
N$=RIGHTS$ (STRS (N) , LEN 
(STR$ (N) )-1) 


IFY<OTHENY$=STR$ (Y): 
GOTO850 
Y$=RIGHTS$ (STR$ (Y) , LEN 
(STR$ (Y))-1) 

RETURN 


IFD=3THEN1200 

FORT=2T03 
PRINT"{HOME}";:FORR=1TOD: 
PRINT"{CUR.GIU}";:NEXTR: 
FORR=1TOS:PRINT"{CUR.DES}" 
s:NEXTR 
PRINTMN$ (T) :FORR=1T0400: 
NEXTR:NEXTT 

D=D-1:S=S+2 
PRINT"{HOME}";:FORR=1TOD: 
PRINT"{CUR.GIU}";:NEXTR: 
FORR=1TOS:PRINT"{CUR.DES}" 
s:NEXTR 

PRINTMNS$ (1) 

RETURN 

IFS=29THEN1250 

S=S+1 

PRINT" {HOME}";:FORR=1TOD: 
PRINT"{CUR.GIU}";:NEXTR: 
FORR=1TOS:PRINT"{CUR.DES}" 
s :NEXTR 

PRINTMN$ (1) 

GOTO1100 
S=33:D=2:PRINT"{HOME}{3 
CUR.GIU}{28 CUR.DES}"; 
PRINT"{4 SPC} {SH 0}{3 
CUR. SIN} {CUR.GIU} {5 CUR. 
SIN}{6 SPC} {SH N} {RVS ON} 
{RVS OFF} {SH M} {2 CUR. 
SIN} {CUR.GIU}{3 CUR. 

SIN} {2 SPC} {SH N} 
{SH@}"; 


1252 
1253 


1260 
1270 


1275 
1280 


1290 


1300 


1310 


1320 


1330 


1340 


1350 


1360 


1370 


1380 


1390 


1400 


1410 


1420 
1430 


1999 
2000 


2010 
2020 
2030 
2040 


2050 





FORI=1TO80:NEXTI 

PRINT"{2 CUR.SIN}{3 SPC} 
{CUR.SU}{3 CUR.SIN}{3 SPC} 
{CUR.SU} {3 CUR.SIN}{3 
SPC}" 

FORT=4T022:D=D+1 
PRINT"{HOME}";:FORR=1TOD: 
PRINT"{CUR.GIU}";:NEXTR: 
FORR=1TOS:PRINT"{CUR.DES}" 
s:NEXTR 

FORE=1T050 :NEXTE 
PRINTMN$ (T) ; :NEXTT: FORR= 
1T070:NEXTR 

PRINT"{3 CUR.SIN}{4 SPC} 
{CUR.SU}{5 CUR.SIN}{4 
SPC}"; 
FORT=1T010:GOSUB2000:NEXTT 
PRINT"{CUR.GIU}{3 CUR.SIN} 
e ri :G0SUB2000 

PRINT"{3 CUR.SIN} {SH F} {SH 
Q}{SHF}";:GOSUB2000 
PRINT"{3 CUR.SIN} {SH 0} {SH 
O}{SHP}";:GOSUB2000 
PRINT"{2 CUR.SIN} {CUR.SU} 
{SH Q}{CUR.GIU}{2 CUR.SIN} 
{SH 0} {RVS ON} {RVS OFF} {SH 
P}";:GOSUB2000 

PRINT"{3 CUR.SIN} {CBM M} 
{CBMG} {CUR.SIN}{CUR.SU}{3 
CUR.SIN}{SH O} {RVS ON} 
{RVS OFF} {SH P}{CUR.SU}{2 
CUR.SIN} {SH Q}";: 
GOSUB2000 
PRINT"{CUR.GIU}{2 CUR. 
SIN} {SH M} {CUR.DES} {SH N} 
{CUR.SU}{3 CUR.SIN}{CBM 
@}{CUR.DES}{CBM @} {2 CUR. 
SIN} {CUR.SU} {3 CUR.SIN}"; 
:GOSUB2000 

W$="SAPETE? {8 CUR.SIN}{8 
SPC} {8 CUR.SIN}" 

W1$="IO ODIO {8 CUR.SIN}{8 
SPC} {8 CUR.SIN}" 
W2$="QUESTO {9 CUR.SIN}{7 
SPC}{CBM +}{4 CUR. SIN} 
LAVORO" 

WS$S=W$+W1$+W2$ 

FORT=1TOLEN (W$) :PRINTMID$ 
(W$,T,1); 
FORR=1T050:NEXTR:NEXTT 
FORR=1T010:GOSUB2000: 
NEXTR:PRINT"{CLR}":RUN 

END 

FORMJU=1T0300:NEXT 

MIU: RETURN 

PRINT"{HOME}{19 CUR.GIU}{2 
CUR.DES};" 
PRINT"SPIACENTE MA ":PRINT 
"{2 CUR.DES}HAI TOPPATO!!" 
FORR=1T0600:NEXTR 

PRINT"{2 CUR.DES}CLIFF NON 
CE L'HA":PRINT"{2 CUR.DES} 
FATTA!!!{2 SPC}" 
FORT=1T08:GOSUB2000: 
NEXTT:RUN 
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N ila reazioo, 





Cerco programma che trasforma 
C64 in SP 48K (su cassetta). 
Menzera Francesco via Slavo 
D'Acquisto, 8 - 74020 Lama (TA). 
Tel. 099/570858. 


Vendo e scambio programmi su 
disco per C64. Richiedere lista. 
Pirini Ezio via Corridoni, 9 - 60123 
Ancona. Tel. 071/35664. 


Vendo CBM64 e VIC20 in un uni- 
co pezzo con cavi e registratore a 
L. 800.000. Vendo giochi per C64 
tra i migliori titoli, Spiderman, Pre- 
dator 2, ESWAT, eccetera. Tele- 
fonare ore pasti. Cuzzola Giovan- 
ni c.so Umberto, 1 - 89030 Bran- 
caleone (RC). Tel. 0964/933338. 


Vendo C64, registratore, drive 
1541/Il, alimentatore, Niki Il, due 
joystick e 100 giochi. Lorenzelli 
Paola via Montenero, 11/7 - 
16139 Genova. Tel. 010/812871. 


Vendo causa passaggio a siste- 
ma superiore C64, drive 1541, 
stampante Riteman C, a L. 
700.000 oppure C64, monitor, 
stampante e programmi a L. 
750.000. De Capitani Angelo via 
Don Morazzone, 203 - 22053 
Lecco (CO). Tel. 0341/420437. 


Cerco REV 1750 per C128 più 
modem 6499 e loro istruzioni, 
cambio con MPS803, trattore, 
final cartridge 3 e istruzioni. Pol- 
tronieri Luigi via Galliano, 1 - 
22075 Lurate Caccivio. Tel. 031/ 
492093. 


Cerco C64/user per istruzioni 
adattatore telefonico 6499 ed in- 
formazioni CPM che non funzio- 
na (disco danneggiato o altro?). 
Compro RAM 1700 max L. 
50000. Contatto C64/128 user 
per istruzioni ad. telefonico 6499 
ed impressioni GEOS 64/128. 
Mancuso Francesco via G. To- 
niolo, 56 - 92100 Agrigento. Ca- 
sella Postale Videotel Mail/Box 
< 360101336. 


Cedo per cambio sistemaVendo 
giochi e utility per C64 su casset- 
ta e disco. Invio elenco a richie- 
sta. Briganti Cosimo via per Ug- 


PIAZZA AFFARI 


giano, 186 - 74024 Manduria 
(TA). Tel. 099/8794090 


Vendo C64, drive 1541/Il, monitor 
a colori 1084S, registratore, joy- 
stick, 10 dischetti, 30 giochi, tutto 
in garanzia, cinque mesi di vita a 
L. 1200000. Tavecchio Davide 
via Trieste, 15 - 22037 Ponte 
Lambro (CO). Tel. 031/620455. 


Compro espansione di memoria 
da 512 K per C128. Telefonare 
ore serali. Stura Francesco via 0. 
Calabresi, 13 - 62100 Macerata. 
Tel. 0773/33131. 


Vendo giochi per C64 solo su 
disco: Test Drive, G.P. Circuit, 
Barbarian II, Battle Chess e molti 
altri. Leonzio Andrea via Chiari, 3 
- 20155 Milano. Tel. 02/3917573. 


Cerco per C64 giochi su disco 0 
nastro tra i quali World Cup 90, 
Pro Tennis Tour, ecc. Gradirei ri- 
cevere lista e relativi prezzi. Carli 
Luigi Loc. Villanova, 11 - 05010 
Orvieto (TR). Tel. 0763/27058. 


Scambio e vendo programmi su 
disco per C64, chiedere lista. 
Grillo Giacomo via 2 traversa - 
88030 S. Costantino di Briatico. 
Tel. 0963/392829. Vendo aL. 500 
giochi ed utility per C64. Bassini 
Andrea via C. P. Aperta - 51012 
Castellamare di Pescia (PT). 


Cerco drive 1541 per C64, istru- 
zioni per uso Modem 6499 e pro- 
gramma terminale relativo. Inol- 
tre vendo, scambio e compro 
giochi e utility. Telefonare ore 
pasti. De Nicola Doriano via G. 
Lanza, 28 - 00047 Marino 
(Roma). Tel. 9367250. 


Vendo C128/D, monitor, stam- 
pante, 3 joystick, penna ottica, 15 
programmi su disco (inclusi quelli 
per la penna ottica e per la stam- 
pante), 10 giochi, registratore, 
cassette, box cassette e dischi, 
tavolino e manuale a L. 680000 
trattabili. Marco Galantin via 
Segantini, 5 - 39012 Merano (BZ). 
Tel. 0473/42232. 


Vendo C128, registratore 1571, 





mouse Commodore 1531, moni- 
tor Philips monocromatico a fo- 
sfori verdi, adattatore 40/80 co- 
lonne per monitor compositi. 
GEOS versione 2.0 per C128, 
sistema operativo CP/M 80 e 
numerosi programmi e utility tra 
cui compilatori PASCAL (vers. 
C64 e per C128), C, FORTH e il 
programma "The Big Blue Rea- 
der", il tutto corredato di manuali 
vari a L. 700000. Telefonare ore 
serali. Ogliari Osvaldo viale Sar- 
ca, 92 - 20125 Milano. Tel. 02/ 
6425066. 


Vendo stampante MPS 803 a L. 
200000 e stampante Star LC10 a 
colori a L. 300000. Telefonare ore 
serali. Ercolani Valerio via Puri- 
celli Guerra, 233 - 20099 Sesto S. 
Giovanni (MI). Tel. 02/26223471. 


Cerco disperatamente i videogio- 
chi Batman Il e Double Dragon Il 
fino a L. 8000 l'uno. Morandi 
Andrea via C. Labella, 21/1 
Genova. Tel. 892664. 


Vendo e scambio giochi per 64 e 
128 (disco e cassetta) e anche 
programmi. Cerco programmi in 
BASIC, prego massima serietà. 
Campagner Ruben via Chiesa, 

10 - 30020 Lugugnana (VE). Tel. 


Inviare questo coupon a: 
SC Super Club 64 
DTP Studio 





0421/705069. 


Vendo giochi per C64/128 solo ed 
esclusivamente su cassetta al 
prezzo di L. 3000 per i giochi 
multiload e di L. 2000 per quelli 
non multiload. Telefonare ore 
pasti e chiedere di Andrea. Pal- 
meri Andrea via S. Pellico, 1 - 
92010 Lampedusa (AG). Tel. 
0922/970525. 


Scambio utility ed ultime novità 
games per C64. Cerco Battle- 
chess. Rizzo Cosimo, P.za A. 
Moro, 1 - 73015 Salice Salentino 
(LE). Tel. 0832/732386. 


Vendo C64 completo di modem, 
mouse, stampante (con relativi 
manuali), disk drive, registratore, 
joystick, video e più di 100 giochi 
su dischi e cassette, fra cui 
Stealth Fighter, Geos, Geopu- 
blish, California Games, Out Run, 
Combat School e molti altri al 
miglior offerente. Bosco Samuele 
via Baldi, 13/A - Rivoli (TO). Fax 
011/9561338. 


Vendo plotter Commodore 1520 
come nuovo a L. 150000 trattabi- 
li. Gregnanin Massimiliano, via 
Trieste, 4 - 10036 Settimo Torine- 
se (TO). Tel. 011/8010392. 


via Matteotti, 14 - 28043 BELLINZAGO NOVARESE (NO) 











Cognome 





via 





Città 








Firma __ 





L'angolo del tecnico 








SE IL COMPUTER SI GUASTA... 


Analizziamo i sintomi più comuni che possono aiutarvi a determinare la sezione del computer affetta da guasto. Localizzare il settore è il primo 
passo verso la soluzione del problema. Vediamo ora i principali sintomi, mentre nei prossimi numeri entreremo nei dettagli tecnici. 


COMPUTER ASSENTE 


Traisintomi più comuni, sicuramente c'è quello 
di trovarsi di fronte ad uno schermo TV comple- 
tamente vuoto con effetto neve. Accertatevi, 
innanzitutto, che il computer sia collegato nor- 
malmente al TV precedentemente sintinizzatoe 
che lo spinotto dell'alimentatore sia corretta- 
mente inserito nell'apposita presa. Controllate 
che l'alimentatore riscaldi durante il suo funzio- 
namento, se così fosse l'alimentatore dovrebbe 
funzionare a dovere, viceversa provare con un 
secondo alimentatore sicuramente funzionante. 
Se anche dopo questa rapida verifica il compu- 
ter non desse segni di vita, smontare il computer 
e controllare l'integrità del fusibile da 1A. Con- 
trollare anche l'interruttore generale che ha due 
sezioni: una connette i 9V alternati l'altrai+5V. 
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"SPAZZATURA" 


Con il termine spazzatura, i tecnici intendono 
uno schermo pieno o parzialmente occupato da 
numeri, lettere, simboli spazi colorati o in bian- 
co e nero, il tutto in sequenza del tutto casuale, 
al posto del familiare messaggio READY. Di 
solito, infatti, all'accensione si devono presen- 
tare sullo schermo quattro elementi ben definiti: 
lo sfondo di colore celeste, il piano di colore 
azzurro, le scritte in colore celeste e il cursore 
lampeggiante. Il colore di tutti questi elementi 
può essere variato via software da tastiera, per 
cui se sullo schermo appare della spazzatura, 
significa che il microprocessore del vostro 
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computer è andato in palla. Poiché il micropro- 
cessore stesso lavora con i dati che gli vengono 
forniti dalle ROM, ci sta che il difetto dipenda 
proprio da queste che fanno impazzire il siste- 
ma. La spazzatura può anche essere provocata 
da qualsiasi circuito digitale, memorie compre- 
se, pertanto cercate di scoprire, con gli stru- 
menti necessari, quale elemento sia andato fuori 
uso e se necessario ricorrete ad un tecnico. 


QUADRO VUOTO 





QUADRO VUOTO 


Lo sfondo e il piano si presentano correttamen- 
te, ma senza alcun carattere anche battendo 
sulla tastiera. Le cause potrebbero essere quelle 
del caso precedente e la procedura di ricerca 
anche. Consigliamo in casi come questo di 
munirsi dei fogli dati del Commore 64 sui quali 
confrontare i valori delle tensioni e la presenza 
dei vari segnali nei punti strategici dello sche- 


ma. L'esecuzione di questi festporterebbero si- 
curamente ad individuare la sezione difettosa e 
il componente da sostituire. 


ASSENZA DI COLORE 


Il vostro Commodore 64 è un computer a colori, 
pertanto è provvisto di circuiti che generano i 
vari colori e li presentano adeguatamente sullo 
schermo. | segnali cromatici sono in funzione 
del clock del sistema e del VIC (Video Interface 
Chip) , pertanto la mancanza del colore è da 
attribuirsi a tale chip o alla non perfetta taratura 
del clock. Ritoccare quindi, con un cacciavitino 
isolato, il compensatore che stabilisce la fre- 
quenza di clock. 


ASSENZA DI VIDEO 0 DI AUDIO 


Quando si è in presenza dell'audio, ma manca 
totalmente il video (schermo TV con effetto 
neve) significa che i circuiti digitali funzionano 
e che il guasto va ricercato nei circuiti d'uscita 
del segnale video: controllare il chip VIC o i 
transistori che compongono lo stadio d'uscita. 
Nella quasi totalità dei casi, quando tutto funzio- 
na correttamente tranne l'audio che è assente, la 
causa è da attribuirsi al chip SID (Sound Inter- 
face Device) che va sostituito. 


L'HARDWARE DEL COMMODORE 64 
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MLX 1.1 


Tutti i programmi pubblicati sulla rivista sono registrati sul disco allegato: una volta caricati, 


sono già pronti all'uso. MLX1.1 servirà solo per inserire i listati esadecimali qualora 
si volessero apportare modifiche o personalizzazioni ai programmi pubblicati. 





MLX 1.1è un programma che permette di intro- 
durre senza errori i listati in linguaggio macchi- 
na sia per il Commodore 64 che per il Commo- 
dore 128 inmodo 64 infatti, volendo introdurre 
un programma scritto in linguaggio macchina, 
bisogna caricare e dare il RUN a MLX 1.1. Gli 
indirizzi di partenza e di chiusura richiesti, 
vengono di volta in volta specificati nel relativo 
articolo. Se non avete molta dimestichezza con 
il linguaggio macchina, sia tali indirizzi sia i 
valori da introdurre, vi potranno apparire al- 
quanto strani anche se altro non sono che i 
simboli del sistema esadecimale in base 16 
usato per i programmi |.m. e comprendente i 
numeri da 0a 9 e le lettere da A a F. 

Caricato e lanciato MLX 1.1, vi verrà chiesto 
come prima cosa di introdurre l'indirizzo inizia- 
le (di partenza) e quello finale (di chiusura): 
batteteli nell'ordine facendoli seguire da RE- 
TURN ed il programma vi chiederà ora se volete 
pulire l'area di lavoro, rispondete con Y (sì) 
facendolo seguire da RETURN. In questo modo 
il computer andrà a mettere tutti zeri nell'area di 
memoria compresatra l'indirizzo inizialee quello 
finale. Qui giunti, il computer vi presenterà il 
menu: per introdurre un programma, dovrete 
scegliere la prima opzione cioè /mmettere dati. 
Premendo la | vi verrà nuovamente chiesto 
l'indirizzo della linea dalla quale volete partire, 
se lo iniziate in quel momento, l'indirizzo corri- 
sponderà a quello di partenza, mentre se avrete 
digitato già in parte il programma, l'indirizzo da 
impostare sarà quello successivo all'ultimo 
battuto in precedenza. Assicuratevi che l'indi- 
rizzo corrisponda a quello della linea del listato, 
viceversa i dati non verranno accettati. 

Per tornare al menu da qualsiasi opzione è 
sufficiente battere RETURN.Ogni linea è com- 
posta da nove coppie di numeri o lettere, le 
prime otto sono i dati, la nona il checksum. Se 
la linea è stat battuta correttamente, udrete un 
beepe il programma passerà alla linea succes- 
siva, al contrario non verrà accettata. Uno dei 
vantaggi di MLX 1.1 è quello di non dover 
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sempre introdurre il numero di linea. Per quanto 
riguarda il checksum, è molto potente: se si 
digita AO invece di OA, verrà segnalato l'errore; 
unica eccezione FF e 00, scambiandoli l'errore 
passa inosservato, fate quindi attenzione. Per 
cancellare un errore di battitura, usare il tasto 
INST/DEL o il tasto cursore verso sinistra. Il 
RETURN funziona solo prima di digitare qual- 
che dato della linea, mentre il tasto CLRHOME 
pulisce la linea dopo un messaggio di errore. 
La seconda opzione del menu riguarda la visua- 
lizzazione dei dati anche qui, premendo V, 
viene chiesto l'indirizzo di partenza dopodiché 
verranno presentati tutti i dati da tale indirizzo 
fino alla fine dellamemoria: è una opzione molto 
utile anche per trasferire dati ad un altro compu- 
ter per via seriale. Con la barra SPAZIO è possi- 
bile mettere in pausa la visualizzazione dei dati 
che verrà ripresa battendo nuovamente sulla 
barra SPAZIO. 

Altre due importanti opzioni sono il /oade il save 
con le quali è possibile caricare o salvare il 
programma su disco (o nastro). Ogni qualvolta 
si debba salvare un programma, è necessario 
usare nomi differenti. Il programma MLX 1.1 
riporta tutti i messaggi standard del Commodo- 
re 64 più i tre che seguono: 

INDIRIZZO DI PARTENZA NON VALIDO, da cui 
si deduce che il programma che si vuol caricare 
non inizia all'indirizzo specificato in partenza. 
LOAD FINITO A... indirizzo, indica che il pro- 
gramma che si tenta di caricare termina prima 
dell'indirizzo finale specificato in partenza. 
TRONCATO ALL'INDIRIZZO FINALE..., indica 
che il programma che si intende caricare termi- 
na oltre l'indirizzo finale specificato in partenza. 
Se incappate in uno di questi errori, dovrete 
uscire da MLX 1.1 tornando al BASIC con 
l'opzione fine, dare nuovamente il RUN e battere 
gli indirizzi esatti. 

Se il programma da digitare è particolarmente 
lungo, si consiglia di salvare, caricare e verifica- 
re frequentemente per evitare di dover ribattere 
blocchi di dati già digitati in precedenza. 





Listato di MLX1.1 


100 
110 


120 


130 


140 


170 


180 


190 


200 


210 


220 


230 


250 
260 


270 


280 


POKE 56,50:CLR:DIM IN$,I, 
J,A,B,AS,B$,A(7),N$ 
C4=48:C6=16:C7=7:22=2:Z4= 
254:25=255:Z6=256:Z7=127 
FA=PEEK (45) +26*PEEK (46): 
BS=PEEK (55) +26*PEEK (56): 
H$="0123456789ABCDEF" 
R$=CHR$ (13) :L$=" {CUR. 


SIN}":S$=" ":D$=CHR$ (20): 
Z$=CHR$ (0) :T$="{13 CUR. 
DES}" 


SD=54272:FOR I=SD TO SD+ 
23:POKE I, 0:NEXT:POKE SD+ 
24,15:POKE 788,52 
PRINT"{CLR}"CHR$ (142) 
CHR$ (8) :POKE 53280, 15: POKE 
53281,15 

PRINT T$" {RED} {RVS ON} {2 
SPC} {8 CBM@} {2 SPC} "SPC 
(28) "{2 SPC} {RVS OFF} 
{BLUE} MLX1.1 {RED} {RVS 
ON} {2 SPC}"SPC(28)"{12 
SPC} {BLUE} " 

PRINT"{3 CUR.GIU}{3 SPC} 
EDITOR DEL LINGUAGGIO 
MACCHINA{4 SPC}{3 CUR. 
GIU}" 
PRINT"{BLACK}INDIRIZZO DI 
PARTENZA{GRAY1}"};:GOSUB 
300:SA=AD:GOSUB1040:IFF 
THEN180 
PRINT"{BLACK}INDIRIZZO DI 
CHIUSURA{GRAY1}"};:GOSUB 
300:EA=AD:GOSUB1030:IFF 
THEN190 

INPUT" {3 CUR.GIU} {BLACK} 
PULISCO AREA? {2 SPC} [Y/ 
N) {GRAY1}";A$:IF LEFT$ 
(A$,1)<>"Y"THEN220 
PRINT"{2 CUR.GIU} 
{BLUE}ATTENDI...";: FORI= 
BS TO BS+EA-SA+7:POKE I,0: 
NEXT:PRINT"OK!!" 
PRINTTAB(10)"{2 CUR.GIU} 
{BLACK} {RVS ON} MENU DEI 
COMANDI {CUR.GIU}{GRAY1}": 
PRINT T$"{RVS ON}E{RVS 
OFF}NTER DATA" 

PRINT T$"{RVS ON}D{RVS 
OFF}ISPLAY DATA" :PRINT 
T$"{RVS ON}L{RVS OFF }OAD 
FILE" 

PRINT T$"{RVS ON}S{RVS 
OFF}AVE FILE":PRINT T$" 
{RVS ON}Q{RVS OFF}UIT{2 
CUR.GIU} {BLACK}" 

GET A$:IF A$=N$ THEN250 
A=0:FOR I=1 TO S:IF AS= 
MID$ ("EDLSO",I,1)THENA=I 
2I=5 

NEXT:0N A GOTO420, 610, 690, 
700, 280:GOSUB1060:GOTO250 
PRINT"{RVS ON} QUIT ": 


290 
300 


310 


320 


330 


340 


350 


360 


370 


380 


390 
400 


410 
420 


430 


440 


450 


460 


470 


480 


485 


486 


487 


490 


500 


510 


520 


530 


540 
550 


TSRZSISI a 


INPUT"{CUR.GIU}{GRAY1}SEI 

SICURO ? [Y/N]";A$:IF LEF 

T$(AS,1)<>"Y"THEN220 

POKE SD+24,0:END 

IN$=N$ :AD=0: INPUTINS:IF 

LEN(INS)<>4THENRETURN 

B$=IN$:GOSUB320:AD=A:B$= 

MID$ (IN$,3) :GOSUB320:AD= 

AD*256+A: RETURN 

A=0:FOR J=1 T02:A$=MID$ 
(B$,J,1):B=ASC(A$)C4+(A$> 

"@") *C7:A=A*C6+B 

IF B<0 OR B>15 THEN AD=0 

:A=-1:J3=2 

NEXT : RETURN 

B=INT(A/C6) :PRINT MID$ (H$, 

B+1,1);:B=A-B*C6:PRINTMID$S 
(H$,B+1,1);:RETURN 

A=INT (AD/Z6) :GOSUB350: 

A=AD-A*Z6:G0SUB350: 

PRINT"; 

CK=INT (AD/Z6) :CK=AD-Z4*CK+ 

Z5* (CK>Z7) :G0OT0390 

CK=CK*Z2+25* (CK>Z7)+A 

CK=CK+Z5* (CK>Z5) : RETURN 

PRINT"{CUR.GIU}PARTENZA{2 

SPC}A{GRAY1}";:GOSUB300:IF 

IN$<>N$ THEN GOSUB1030:IF 

FTHEN400 

RETURN 

PRINT"{RVS ON} ENTER DATA 

":GOSUB400:IFIN$S=N$STHEN220 

OPEN3,3:PRINT 

POKE198,0:GOSUB360:IFETHEN 

PRINTIN$:PRINT"{CUR.SU}{5 

CUR.DES}"; 

FOR I=0 TO 24 STEP 3:B$= 

S$:FORJ=1TO 2: IFFTHEN B$= 

MIDS$ (IN$,I+3J,1) 

PRINT"{RVS ON}"B$L$;:IFI 

<24THEN PRINT"{RVS OFF}"; 

GET AS: IF A$S=NS THEN470 

IF (A$S>"/"ANDAS<":")OR(A$> 

"E"ANDAS<"G") THEN540 

A=- (A$="M")-2* (AS=",")-3* 
(A$=".")-4* (A$="/")-5* (AS= 

PI) -6* (A$="K") 

A=A-7* (AS="L")-8*(AS=":")- 

9* (AS="U") -10* (A$="I") ES 

11* (A$="O")-12*(A$="P") 
=A-13* (A$=S$) :IF A THEN 

A$=MID$ ("ABCD123E456F0", 

A,l) :GOTO 540 

IFAS=RS$ AND((I=0)AND(J=1) 

OR F) THENPRINTB$; :J=2 : NEXT 

:I=24:GOTO550 

IFA$="{HOME}"THENPRINT B$: 

J=2:NEXT:I=24:NEXT:F=0: 

GOTO440 

IF (A$="{CUR.DES}") ANDFTEEN 

PRINTB$L$; :GOTO540 

IF A$<>L$ AND A$<>D$ OR 

( (I=0) AND (J=1) ) THENGOSUB 

1060:GOT0470 

A$=L$+S$+L$: PRINT B$L$; 

:J=2-J:IFJTHENPRINTL$;:1I= 

I-3 

PRINT A$; :NEXT J:PRINT S$; 

NEXT I:PRINT:PRINT"{CUR. 

SU} {5 CUR.DES}";:INPUT#3, 

IN$: IFIN$=NSTHENCLOSE3: 


560 


580 


590 


600 
610 


620 


630 


640 
650 


660 
670 


680 
690 


700 


710 


720 


730 
740 
750 
760 


770 


780 
790 


800 


810 


820 


GOTO220 

FOR I=1 TO 25 STEP3:B$= 
MID$ (IN$,I):GOSUB320:IF 
I<25THENGOSUB380:A(I/3)= 
AS570 NEXT :IF A<>CKTHEN 
GOSUB1060:PRINT"{BLACK} 
{RVS ON} ERRORE :RIBATTI 
LINEA{GRAY1}":F=1:G0OT0440 
GOSUB1080:B=BS+AD-SA: FOR 
I=0 TO 7:POKE B+I,A(I): 
NEXT 

AD=AD+8:IF AD>EA THEN 
CLOSE3:PRINT"{CUR.GIU} 
{BLUE}< FINE BATTITURA > 
{BLACK} {2 CUR.GIU}": 
GOTO700 

F=0:GOT0440 
PRINT"{CLR}{CUR.GIU}{RVS 
ON} DISPLAY DATA ":GOSUB 
400: IFIN$S=N$THEN220 
PRINT"{CUR.GIU}{BLUE} 
PREMI: {RVS ON} SPACE{RVS 
OFF} PER PAUSA, {RVS ON} 
RETURN{RVS OFF} PER BREAK 
{GRAY1}{CUR.GIU}" 
GOSUB360:B=BS+AD-SA:FORI= 
BTO B+7:A=PEEK (I) :GOSUB 
350:GOSUB380:PRINT S$; 
NEXT:PRINT"{RVS ON}";:A= 
CK:GOSUB350:PRINT 
F=1:AD=AD+8:IF AD>EA THEN 
PRINT" {CUR.GIU} {BLUE}< 
FINE DEI DATI >" :G0T0220 
GET A$:IF A$=R$ THEN GOSUB 
1080:GOT0220 

IF A$=S$ THEN F=F+1:GOSUB 
1080 

ONFGOTO630, 660, 630 
PRINT"{CUR.GIU}{RVS ON} 
LOAD DATA ":0P=1:GOTO710 
PRINT"{CUR.GIU}{RVS ON} 
SAVE FILE ":0P=0 

IN$=N$: INPUT" {CUR.GIU} 
FILENAME{GRAY1 }";IN$S:IF 
IN$=N$THEN220 
F=0:PRINT"{CUR.GIU}{BLACK} 
{RVS ON}T{RVS OFF}APE{CUR. 
DES}0{2 SPC} {RVS ON}D{RVS 
OFF}ISK: {GRAY1}"; 

GET A$:IF A$="T"THEN PRINT 
"T{CUR.GIU}":GOTO880 

IF A$<>"D"THEN730 
PRINT"D{CUR.GIU}":0PEN15, 
8,15, "I0:":B=EA-SA:INS="0: 
“+INS: IFOPTHEN810 

OPEN 1,8,8, IN$S+",P,W": 
GOSUB860 : IFATHEN220 
AH=INT (SA/256) :AL=SA- (AH* 
256) :PRINT#1, CHR$ (AL); 
CHR$ (AH); 
FORI=0TOB:PRINT#1, CHR$ 
(PEEK (BS+I));:IFSTTHEN800 
NEXT:CLOSEl:CLOSE15: 
GOTO940 
GOSUB1060:PRINT"{CUR.GIU} 
{BLACK}ERRORE IN {CUR.DES} 
SAVE: {GRAY1}":GOSUBB60: 
GOTO220 

OPEN 1,8,8, IN$+",P,R":GO 
SUB860:IFATHEN220 
GET#1,A$,B$:AD=ASC(A$+Z$) 


830 


840 
850 


860 


870 
880 


890 


900 


910 


920 
930 
940 
950 
960 


970 


980 


990 


1000 


1010 


1020 


1030 


1040 


1050 


1060 


1070 


1080 


1090 





+256*ASC(B$+Z$) : IF AD<>SA 
THENF=1:GOTO850 
FORI=0 TO B:GET#1,A$ : POKE 


BS+I,ASC(A$+Z$) :IF(I<>B) 
ANDSTTHENF=2:AD=I:1=B 
NEXT:IF ST<>64 THEN F=3 
CLOSE1:CLOSE15:0N ABS (F>0) 
+1 GOT0960, 970 
INPUT#15,A,A$: IFATHENCLOSE 
1:CLOSE15:GOSUB1060:PRINT 
"{RVS ON}ERRORE: "A$ 

RETURN 
POKE183, PEEK (FA+2) :POKE 
187, PEEK (FA+3) :POKE188, 
PEEK (FA+4) : IFOP=0THEN920 
SYS 63466:IF (PEEK(783) AND 
1) THEN GOSUB1060:PRINT" 
{CUR.GIU} {RVS ON} FILE NOT 
FOUND ":GOTO690 

AD=PEEK (829) +256*PEEX (830) 
:IF AD<>SATHENF=1:GOT0970 
A=PEEK(831)+256*PEEK (832) - 
1:F=F-2* (A<EA)-3* (A>EA) :AD 
=A-AD:G0T0930 
A=SA:B=EA+1:GOSUB1010:POKE 
780, 3:SYS63338 
A=BS:B=BS+ (EA-SA) +1:GOSUB 
1010:ONOPGOTO950:SYS 63591 
GOSUB1080:PRINT"{BLUE}< 
SAVE COMPLETATO >" :GOT0220 
POKE147, 0:SYS 63562:IF ST> 
OTHEN970 
GOSUB1080:PRINT"{BLUE}< 
LOAD COMPLETATO >" :GOT0220 
GOSUB1060:PRINT"{BLACK} 
{RVS ON} ERRORE IN{2 SPC} 
LOAD: {CUR.GIU} {GRAY1}":ONF 
GOSUB980, 990, 1000:GOT0220 
PRINT"INDIRIZZO PARTENZA 
NON VALIDO (";:GOSUB360: 
PRINT") ": RETURN 
PRINT"LOAD FINITO A "; :AD= 
SA+AD:GOSUB360:PRINT DS: 
RETURN 

PRINT"TRONCATO ALL' 
INDIRIZZO FINALE" : RETURN 
AH=INT (A/256) :AL=A- (AH* 
256) :POKE193, AL: POKE 
194,AH 
AH=INT(B/256) :AL=B- (AH* 
256) :POKE174,AL:POKE175, 
AH:RETURN 

IF AD<SA OR AD>EA THEN1050 
IF (AD>511 AND AD<65280) 
THENGOSUB1080:F=0: RETURN 
GOSUB1060:PRINT"{RVS ON} 
INDIRIZZO NON CORRETTO 
{CUR.GIU}{BLACK}":F=1: 
RETURN 

POKE SD+5, 31:POKESD+6, 208: 
POKESD, 240:POKE SD+1,4: 
POKESD+4, 33 

FOR S=1TO 100:NEXT: 
GOTO1090 

POKE SD+5, 8:POKE SD+6, 240: 
POKE SD, 0:POKESD+1, 90: 
POKESD+4, 17 

FOR S=1T0100:NEXT:POKESD 
+4,0:POKESD, 0:POKE SD+1, 0: 
RETURN 
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LE ICONE L'ANGOLO DEL TECNICO. Per 


conoscere nei minimi particolari il 
funzionamento del vostro computer, 
la miglior cosa è una analisi appro- 


Gli articoli presentati sulla rivista, sono contrassegnati da particolari simboli che ne identifi- 
cano la natura. Eccoveli brevemente spiegati... 


LA POSTA. Nei limiti consentiti dal- 
lo spazio, pubblicheremo di volta in 
volta le richieste e le proposte di 
chiunque voglia partecipare per ren- 
dere più interessante la nostra rivista. 


TYPE-IN . Dedicato al programma 
MLX necessario per digitare i pro- 
grammi in |.m. da personalizzare. E' 
possibile anche il loro caricamento, il 
salvataggio e il trasferimento. 


TRUCCHI E SEGRETI. F' |a pagina 
dedicata ai programmi semplici e biz- 
zarri. Non li troverete su disco, ma 
sono brevi e facili da inserire diretta- 
mente da tastiera... 


IL MERCATO. Se volete che i vostri 
messaggi trovino riscontro, spedite- 
celi e verranno pubblicati. Non pren- 
deremo in considerazione annunci a 
scopo di lucro 


fondita tipo assistenza tecnica 


ON-DISK. Troviamo qui i program- 
mi registrati su disco, ma non listati 
nelle pagine della rivista. Utility, gio- 
chi e di tutto un po': caricateli e fateli 
girare, è il massimo! 


LISTING. | programmi listati in que- 
ste pagine, anche se presenti su di- 
sco e già pronti all'uso, posseggono 
una particolare struttura che ne per- 
mette la personalizzazione. 





PER | CARATTERI STRANI... 


I programmi inBASIC listati suSC64 contengono una particolare codifica dei caratteri di controllo che sullo schermo appaiono 
sottoforma di simboli grafici, questo per rendere più leggibili i listati e per permettere la stampa degli stessi anche su stampanti 
a margherita. | listati contengono spesso alcuni caratteri racchiusi tra parentesi graffe {} le quali, non esistendo sulla tastiera 
del computer, non devono essere digitate in quanto hanno appunto l'unico scopo di indicare che i caratteri in esse racchiusi 
sono caratteri di controllo. Peresempio, {CUR.GIU} indica che occorre premere una volta iltasto cursore verso il basso, mentre 
{3 CUR.GIU} indica che il tasto cursore verso il basso dovrà essere premuto 3 volte. | caratteri, sempre racchiusi tra parentesi 
graffe, preceduti da CBM, devono essere premuti unitamente al tasto Commodore (che si trova nell'angolo in basso a sinistra 
della tastiera) Per esempio, {CBM A} indica che deve essere premuto il tasto Commodore insieme al tasto A. Infine, alcuni 
caratteri racchiusi nelle parentesi graffe e preceduti da SHIFT indicano che il carattere seguente deve essere digitato tenendo 
premuto il tasto SHIFT. La tabella riporta la codifica dei principali caratteri di controllo utilizzata nei nostri listati. | listati in 
linguaggio macchina, che sono totalmente formati da numeri e lettere, non possono essere copiati direttamente col computer, 
ma richiedono l'utilizzo dello speciale programma MLX1.1 riportato, insieme alle istruzioni, nelle due pagine precedenti. 
Ricordiamo, ancora una volta, che i programmi pubblicati sulla rivista si trovano già registrati e pronti all'uso sul disco 
allegato, per cui i listati vengono forniti solo a scopo amatoriale per coloro i quali volessero ribatterseli per personalizzarli 
o modificarli a proprio piacimento. 


TABELLA DEI TASTI E DEI CARATTERI 





1 


[crea co] 


GRAY1] 


[GRAY2] 





GREEN.LIG] 
BLACK] 


(WHITE] 


TOCCOFEDE 
=/2|r[x[<]-[=[9/t CN [di 


5 


COCCOGA 
ul Soscoxsona È 


PA mi |\-Mole]?]* 


E] 


E SE IL DISCO NON FUNZIONA? 


Può succedere che il disco allegato alla rivista si rifiuti di funzionare anche seguendo le istruzioni fornite a pagina 3 o quelle suggerite nel relativo 
articolo: quando ciò accade la causa è, di solito da attribuire ad un danneggiamento fisico del disco stesso causato da un cattivo recapito o da 
un difetto della macchina di duplicazione. Qualora si verificasse questa situazione, preghiamo di ritornare all'indirizzo sotto riportato, il disco 
difettoso che sarà sostituito e recapitato al mittente nel più breve tempo possibile. Rispedire a: 

DTP Studio via Matteotti, 14 - 28043 Bellinzago Novarese (NO). 





